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MICRO-80 is an international magazine devoted entirely to the Tandy TRS-80 microcomputer 
and the Dick Smith System 80/Video Genie. It is available at the following prices: 
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MICRO-80 is available in New Zealand from: 

MICRO PROCESSOR SERVICES, 940A Columbo Street, CHRISTCHURCH 1 N.Z. Ph. 62894 
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Special bulk purchase rates are also available to computer shops etc. Please use the form in this 
issue to order your copy or subscription. 

The purpose of MICRO-80 is to publish software and other information to help you get the most from 
your TRS-80, System 80 or Video Genie and their peripherals. MICRO-80 is in no way connected with 
either the Tandy or Dick Smith organisations. 

** WE WILL PAY YOU TO PUBLISH YOUR PROGRAMS ** 

Most of the information we publish is provided by our readers, to whom we pay royalties. An 
application form containing full details of how you can use your TRS-80 or System 80 to earn some 
extra income is included in every issue. 

** CONTENT ** 

Each month we publish at least one applications program in Level I BASIC, one in Level II BASIC and 

one in DISK BASIC (or disk compatible Level II). We also publish Utility programs in Level II 

BASIC and Machine Language. At least every second issue has an article on hardware modifications 

or a constructional article for a useful peripheral. In addition, we run articles on programming 

techniques both in Assembly Language and BASIC and we print letters to the Editor and new product 

reviews. 

** COPYRIGHT ** 

All the material published in this magazine is under copyright. That means that you must not copy 
it, except for your own use. This applies to photocopying the magazine itself or making copies of 
programs on tape or disk. 

** LIABILITY ** 

The programs and other articles in MICRO-80 are published in good faith and we do our utmost to 
ensure that they function as described. However, no liability can be accepted for the failure of 
any program or other article to function satisfactorily or for any consequential damages arising 
from their use for any purpose whatsoever. 
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*** SPECIAL OFFER TO NEW READERS AND READERS RENEWING THEIR SUBSCRIPTION *** | 
*** SOFTWARE LIBRARY, VALUED AT OVER $100 - FREE !!!*** 



MICRO— 80 has developed a new Library of Software consisting of 7 programs and a comprehensive user manual. The 
Software Library, on cassette, will be sent FREE to every new subscriber and to every subscriber who renews hissUb-v 
scription for another 12 months. Disk subscribers will receive their Software Library on a diskette. The new Software 
Library contains the following Level II/Disk Programs. All programs will also operate on the Model III. 



Level I in Level II 

Convert your Level II TRS— 80 or System 80 to operate as a 
Level I machine. Opens a whole new library of software for your 
use. 

Copier 

Copies Level II System tapes, irrespective of where they load in 
memory. Copes with multiple ORG programs. 

Z80 MOM 

A low memory, machine language monitor which enables you to 
insert OP codes, edit memory, punch system tapes etc.. 

Cube 

An ingenious representation of the popular Rubicks cube game 
for Disk users. 



Poker Convert 

Play poker against your computer, complete with realistic graphics.,- 



Improved Household Accounts 

Version 3.0 of this useful program. One or two bugs removed 
and easier data entry. This program is powerful enough id We 
used by a small business. -?c m „, 



80 Composer 

A music generating program which enables you to play-mttsic via 
your cassette cord and to save the music data to tape. ~Thisirss^ri c 
improved version of the program published in Issue 17 of Wiistor-, 
80. 
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***** EDITORIAL ***** 

This issue heralds the commencement of MICRO^-SO^s- third year of publication. In the past two 
years we have changed a lot and so have our readers and their interests. Two years ago, the 
TRS-80 was sti 11 ;q f airly new in Australia and the System 80/Video Genie had been well heralded 
but had failed to materialise. The majority of TRS-80 owners used L2/16K cassette-based systems 
with a sizeable minority using L1/4K systems. Disk-based systems were a comparative rarity. 
In the U.K. the TRS-80 was far behind the Commodore PET in popularity and there were probably 
| not many more owners of TRS-80 's in the whole of $ie:U.,,;K;. than; in Australia. 

Now, two years ^ater, we find a very different -story. -In -Australia, owners of Level 1/4K TRS- 
80's are in a small minority, L2/16K cassette-based systems are probably still in the majority 

.but a very large proportion of readers now use systems; having one or more disk drives. The 

iSystem 80/Video Genie has arrived and many thousands have been bought by enthusiastic newcomers 
to microcomputing. The Model III TRS-80 is growing in popularity although its owners still 
represent a fairly small minority of TRS-80 users. In the U.K., the Video Genie has proven 

: very popular indeed and may have .exceeded the TRS-80 in sales. The Model III TRS-80 too, is 

■} reportedly provi-ng very popular. ■■/-■ ;*-■■" 

-The effect of ||l this on Nlft^Rd^^Ti^ * ]thaV [tliose i ^^^rs-Jicy'ho have been with us for two years 
|now have a great deal of experi^nce-jand "expertise and are looking for more advanced articles 
| and programs, particularly for di$k, ^systems.' Those new 'readers who have only just acquired 
^ their systems are looking to us to support' them with elementary articles, hints and tips etc. 
| Some System 80/VJdeo Genie owners feel that we treat them as second class citizens; some Model 
§111 owners feel that we completely ignore them. Everyone is unhappy about our late production 
| of the magazine^ So, what are we going to do to meet the challenges of the next 12 months and 
|make sure that "we satisfy the needs of all our readers? The answer is, a great deal. Over 
>the next few mpnths we will be introducing a number qfindifferent departments into MICRO-80 to 
K cater for the different interests of our readers. There will be a department devoted to disk 
JJ users and another devoted to the Model III. We do not intend to differentiate between the TRS- 
r^80 Model I ancT the System 80/Video Genie, however, because despite minor differences, these 
| are essentially the same system. Later in the year, we will be adding a Colour Computer Department 
which will cater for the recently released . TRS --80 Colour Computer and the Hitachi Peach, both 
|of which use the 6809 microprocessor and MICROSOFT BASIC interpreter. As an earnest of our 
intentions, wet WaW £ jiut^ corfsf durable ^aftount?^ sef foVt^into developing the new software library 
to be sent free to every new subscriber and every reader who renews his subscription (from 
| this issue on). The programs iri^fni §3 library ^¥ih^l>h f 'tWei' TRS-80 Models I and III, the System 
f 80/Video Genie and disk systems as well as cassette systems. Some of the utilities in this 
f: library are Wbt^ available foF thfeCIIodeTi M Wr Hlnis^nce^^P&ny price. 

Ienchancements to the MODEL II. 

i| >TC~Tj Hprrqi c!j;>n«!"' y )i 

pecently, an enhanced version of the' TRS-80 Model 11" microcomputer was announced in the U.S.A. 
jjKnown as the Model 1|L.,, tlp,i r s ?1 m|ichi.ne, 1 | i nQQr i pps|^s ,%,],§ ^Jbit CPU board using the Motorola 68000 
|chip , in addition to tfie~ standard e Z80A* CPl) ofthe* tele] IF. For just under $6000 US. Americans 
fwill be able to purchase the model 16 with 128K of RAM expandable at additional cost up to 51 6K. 
f|A 10 megabyte hard disk has also been announced iff crn this machine and it is possible to connect 
fftwo dumb terminals to it. Existing owners of Model II machines will be able to purchase an 
^upgrade kit consisting^ofAttie, 68000iCCPU Tsoarld ^hichAplugss directly into one of the vacant sockets 
linside the cabinet. 

Based on our own expediences with the Model II, we are becoming more and more convinced that 
|this is one of the most underrated business machines available today. We know of several salesmen 
•working for specialist word processing organisations who privately admit that the Model II with 

Scripsit is superior to their own machines at about half the price! The Model 16 is sure to 
£be an even more formidable contender than the Model II. Anyone who is considering spending $6000 - 
f$12000 on a business computer could do much worse than purchase a Model II. 

pUMOUR- SQUASHING DEPARTMENT! : _ 

|For some time now* there have been persistent rumours that Tandy has dropped the expansion interface 

for the Model I from the Australian market. We checked this out with Mai Williams - Computer 
^Marketing Manager at Tandy. Mai was adamant-'that this is not so. Indeed, at the time we called 

him, he was in the process of ordering more from the U.S„A. What has been dropped is the L1/4K 
: TRS-80 Model I. r ^ 

LOWER-CASE IN NEW TRS-80 MODEL' I." 

|The„ TRS-80 Model I has recently undergone a minor redesign* The main reason was that the 21L02A 

I'IC's used as video RAM have become obsolete and are no longer manufactured. Instead, they have 

|been replaced with two 2114 IC's. the significance of this is that the 2114 is arranged as 

|1K by 4 bits so the two chips give a video RAM of 1 IK by 8 bits whereas previously, the machine 

|had only IK by 7 bits as standard. An important part of any lower-case modification was the 

addition of .an extra 21LQ2A video, RAM chip to increase the video RAM to IK by 8 bits. This 

modification^ is no longer = necessary to obtain lower-case. A further rationalization carried 

out f has been to drop the eaflief o;? char^et^r generator 5 and ! use only the more recent one which 

contains proper lower-case characters. If : you have one of these recent machines, all you need 

do to obtain correct ic-wer-case characters in BASIC, is to load a machine language lower-case 

driver routine such as that published on page 29, Issue 18 of MICRO-80. A word processor program 

such as SCRIPSIT will automatically enable the lower-case. 

CONTINUED ON PAGE 8 
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***** REVIEW OF THE TRS-80 COLOUR COMPUTER ***** 

The major part of this review was written by Rob Glanville of Victoria who imported his own 
Colour Computer from the U.S.A. some time ago. Rob previously used a TRS-80 Model I and is 
an avid games enthusiast. Before handing over to Rob, we will record our own impressions of 
the Colour Computer and, more importantly, its position relative to other computers which are 
available. 

The TRS-80 Colour Computer is a TRS-80 in name and livery only. In all other respects it is 

completely different from the other computers which share the name TRS-80. No attempt has been 

made to provide compatibility or program interchange with the Model I or Model III. Why has 
Tandy taken this approach? 

Tandy did not tell us (to be fair, we didn't ask the question in those terms) but it is not 
too difficult to work out. There has been a lot of requests for high resolution colour graphics 
from Model I and III owners but the hardware and memory mapping of this machine preclude a simple, 
economical solution to the problem. Equally, many people have been buying video games machines 
which have become more and more intelligent, culminating in the Atari 400 and 800 microcomputers. 
Tandy has obviously seen an opportunity to enter a new market - the super -intelligent video 
games machine. Model I and Model III owners will have to make a choice. Do they want to stay 
with their more powerful (in computing terms) more expandable systems and put up with low resolution 
monochrome graphics, or would they prefer the high resolution colour graphics display of the 
Colour Computer, knowing that it will never be capable of all the serious uses to which the 
Model I/Model III can be put. 

The latter is an important point. In our opinion, the Colour Computer will never be seriously 
used as a word processor for example, or for any application requiring the input of large amounts 
of data. The keyboard is too much like a calculator for the former and there is no numeric 
keypad available or projected. Add to that a display of 16 lines of only 32 characters each 
and lower-case indicated by upper-case letters with colours reversed, and you will understand 
why we say what we do. Nor does Tandy suggest that the Colour Computer should be used in business- 
type applications. They have the Models II and III for that. 

So, the choice is yours, if you want a true home computer which will be lots of fun for the 
family (it has to be because whilst you are using it the colour T.V. is tied up!) using packaged 
software, but which will allow you to write your own programs and learn programming in BASIC, 
then the Colour Computer could be just right for you. On the other hand, if you are the type 
who frowns on the use of computers for playing games (and many do) or who would like to use 
your computer as a word processor or for stock control, etc. etc., then you would be better 
off opting for a Model II or III as far as the Tandy range is concerned. 

Now, over to Rob for some more details of the Colour Computer. 

The keyboard unit of the TRS-80 Colour Computer measures 375mm long x 350mm deep. The keys 

are of a plastic calculator type coloured grey, control keys are white and break key is red. 

The keyboard unit is coloured 'Tandy' silver. The computer is quite light, apparently 80% 
less IC's are used, compared with the Model I. At the right side of the unit is the cartridge 

slot for use with Tandy's 'Program Paks'. The back of the computer has reset button, AC cord, 

channel selector, video output (RF Modulated), cassette jack, RS232 serial Interface, 2 joystick 
jacks and power switch. 

The basic Colour Computer comes with one (1) programming manual, but if Extended Basic is installed, 
two (2) manuals are included. Both manuals are lighthearted, entertaining and most importantly 
teach you about this quite different TRS-80. Plenty of do-it-yourself type exercises and sample 
programs are provided to show this machine's capabilities. 

On power up the screen clears to the default colour of green and message below appears: 

EXTENDED COLOR BASIC 1.0 

COPYRIGHT (C) 1980 BY TANDY 

UNDER LICENSE FROM MICROSOFT 

OK 

The cursor is constantly cycling through the nine (9) colours, which are black, green, yellow, 
blue, red, buff, cyan, magenta and orange. The unit powers up in 'caps lock' position. Type 
shift and typewriter style operation is obtained. Lower case letters are displayed as inverse 
capitals, i.e. green letters on black background. The display is 32 characters per row x 16 
columns. This makes text easy to read. 

The standard unit has 8K of Read Only Memory (ROM) which is quite useful, but Extended Color 
Basic, which is an additional 8K ROM circuit, makes this computer much more flexible and easy 
to use with Simple Basic statements. Standard Color Basic has 'set' graphics of 64 x 32 resolution. 
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Higher resolution graphics are obtainable, but could prove confusing to the first time user. 

Graphics Extended Basic Only: 

There are several PMODEs (degrees of resolution) to choose from. These are: 

PMODE 128 x 96 Two Colours 1 page 

1 128 x 96 Four Colours 2 pages 

2 128 x 192 Two Colours 2 pages 

3 128 x 192 Four Colours 4 pages 

4 256 x 192 Two Colours 4 pages 

Colour sets available are: 



PM0DE# 


SCREEN 


TWO COLOUR 


FOUR COLOUR 


4 
3 



1 



Black/Green 
Black/buff 


Green, Yellow, Blue, Red 
Buff, Cyan, Magenta, Orange. 




2 



1 


Black/Green 
Black/Buff 






1 




1 




Green, Yellow, Blue Red. 
Buff, Cyan, Magenta, Orange. 








1 


Black/Green 
Black/Buff 







RAM for graphics is allocated by the PCLEAR N statement. N is number of pages to be cleared. 
Each page is 1536 bytes. All graphics are plotted on a 256 x 192 pixel matric. Example: - 

10 PCLEAR 4 : ' Clear 4 pages of RAM. 

20 PCLS : ' Clear graphic pages to background colour. 

30 FMODE 3,1 : ' Select resolution required. 

40 SCREEN 1,0: * 1 Selects graphic screen, selects colour set. 

50 PSET (128,96,2) : ' Sets 1 pixel at centre of the screen, yellow in colour. 

60 GOTO 60 : ' Loop forever. 

The command PRESET turns off pixels which were previouslyu PSET. 

LINE : Draws a line from (XI, Yl ) - (X2, Y2), PSET. 

Example: - 



Line (0,0) 



corner, 
colour. 



) - (225,191), PSET would draw a line from top left corner of screen to bottom right 
This statement could also include 'B' to draw a box and/or 'F' to fill the box with 



CIRCLE : Syntax is (X, Y),r, c, hw, start, end. 

X,Y is co-ordinate for centre of circle. 

r specifies radius of circle. 

c Specifies colour (dependent on colour set chosen). 

hw Specifies height/width ratio - numeric from 1 to 255. 

Start Specifies start point of circle, - 1. 

End Specifies end point of circle, 0-1. 



DRAW : 


"String". 


Motion 


Commands : 


M 


Move draw position. 


U 


Up. 


D 


Down. 


L 


Left. 


R 


Right. 


E 


45° Angle. 


F 


135° Angle. 


G 


225° Angle. 
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DRAW : "String" continued.. 

Motion Commands: 

H 315° Angle. 

X Execute a substring and return. 

Modes : 

C Colour. 
A Angle. 
S Scale. 

Options : 

N No update of draw position. 

B Blank. Used to prefix Move, also for blank lines. 

Example: 

DRAW "BM0,0; R255;D191 ;L255;U191". 

This would DRAW a line starting at top left corner, continuing around screen border. 

NOTE - Since text characters cannot be shown on the graphics screen, the DRAW command can be 
used to DRAW the text. 

Substrings can be executed as follows: 

10 PMODE 3,1 

20 PCLS 

30 PCLS 

40 A$ = "BM128,96;U25;R25;D25;L25". 

50 DRAW "BM95,50;U25;XA$;D25;L25". 

60 GOTO 60. 

All substrings must be prefixed with X. The semi colon after the xy start point is compulsory, 
while semi colons separating movement commands are optional, but usually included for legibility. 

GET/PUT: 

This is the fastest way to move things around on the graphics screen. It works like this: 

1st. Define area required as an array (maximum 1,400 elements). 

2nd. DRAW (or otherwise) your shape to be moved. 

3rd. GET (label) the area of memory (screen location). 

4th. Clear graphics screen or draw blanks. 

5th. Put the array back on the screen in destination stated. 

EXAMPLE: 

10 PCLEAR 4 

20 PMODE 3,1 

30 PCLS 

40 SCREEN 1, 1 

50 DIM V (20, 20): Dimension array for use. 

60 CIRCLE(20, 20), 10 

70 GET (10, 10) - (30, 30), V:' Label array with area of screen. 

80 PCLS 

90 FOR PAUSE = 1 to 300 : NEXT PAUSE. 

100 PUT (110, 110) - (130, 130), V:' PUT circle elsewhere. 

110 FOR PAUSE = 1 to 300 : NEXT PAUSE. 

120 GOTO 120 :' loop forever. 

This program DRAWs a circle at position 10, 10 then clears the screen and PUTs the circle back 
at position 110, 110. 

PLAY: 

Forget machine language subroutines and POKEing sounds, durations etc. Now you can PLAY all 
sorts of notes and sounds. PLAY notes from A-G over 5 octaves including flats and sharps. 
Length of notes can vary from 1 which is a whole note up to l/255th of a note. Tempo can be 
set from 1 up to 255. Volume is software selectable with 30 levels. Rests are available with 
durations same as length of notes. Substrings can be executed as in DRAW. 

Back to more mundane commands. RENUM is functionally the same as the utility program available 
CONTINUED ON PAGE 8 
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Jan 81 


28 










TEXT TYPER 


L2/16K 


Nov 81 


24 


GRAND PRIX 


L2/16K 


Apr 81 


22 


THREE BILLY GOATS GRUFF 


L2/16K 


Sep 81 


16 


GRAPHIC UTILITY 


L2/m.l. 


Dec 80 


31 


TIC-TAC-TOE 


L1/16K 


Nov 81 


10 


GENIUS 


L2/16K 


July 81 


27 


TOWERS OF HANOI 


L2/16K 


Nov 81 


31 


GUZINTA 


L1/4K 


Aug 81 


11 


TWELVE HOUR CLOCK 


L2/4K/m.l. 


May 81 


22 


INPUT CHECKING 








UNIVERSAL LOWER CASE 








(Better Basic 3) 


L2 


July 81 


5 


DRIVER ROUTINES 




May 81 


29 


INTERCEPT 


L1/4K 


June 81 


16 


UTIL 1:2:3:4 
+ microbug 


L2/m.l. 


Aug 81 
Oct 81 


28 
14 


JOYSTICK SOFTWARE 
















DRIVERS 


L2 


Nov 81 


3 


VARIABLES WORKSHEET 


L2/16K 


Apr 81 


16 










VICTORY AT BATHURST 


L2/16K 


Mar 81 


27 


KEYNOTE 


L1/4K 


Feb 81 


12 


+ microbug 




May 81 


2 


LIFE AT 7000H 


L2 


Jan 81 


23 


WELL CLIMBER 


L2/4K 


Dec 80 


23 


LINEAR REGRESSION 


L2/4K 


Aug 81 


15 


WORLD TIME 


L2/16K 


Dec 80 


27 


LINE INPUT FOR L2 
















(Better Basic 3) 


L2 


July 81 


5 


HARDWARE 








LIST DISABLE 


L2/4K 


June 81 


28 










LOWER CASE DRIVER 








Mod. for System 80 cassette 


June 81 


11 


FOR E.S.F. 




Sep 81 


28 


Using TRS80 sound programs on a 














System 80 




June 81 


13 


MATURITY TEST 


L1/4K 


Jan 81 


11 


Joysticks and I/O ports 


- Part 1 


July 81 


7 


(METRIC) CONVERSIONS 


L2/4K 


July 81 


22 


Joysticks and I/O ports 


- Part 2 


Aug 81 


7 


METRIC TIME 


L2/4K 


Apr 81 


23 


Joysticks and I/O ports 


- Part 3 


Oct 81 


8 


MICROHEX 


L2/4K 


Feb 81 


15 


Joysticks and I/O ports 


- Part 4 


Nov 81 


3 


MILEAGE CALCULATOR 


L2/4K 


July 81 


15 


(software drivers) 
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BETTER BASIC PROGRAMMING 



Part 1 
Part 2 

+ 
3 
4 
5 
6 



Part 
Part 
Part 
Part 



Strings 
Arrays 
microbug 
Checking input 
Screen formatting 
Assembly 
More assembly/BASIC 



E.S.F. FORUM 

Care, cleaning and crashes 
Recovery of damaged wafers 
Hardware hints 
Parameters for saving m .1 . 
to wafer 



May 81 
June 81 
July 81 
July 81 
Aug 81 
Sep 81 
Oct 81 



Feb 81 
Feb 81 
June 81 

June 81 



EVALUATIONS AND REVIEWS - Hardware 



EVALUATIONS AND REVIEWS - Software 

Microsoft Editor/Assembler 
Plus 
'Count' Adventure 
TASP Word processor (with 

Escon) 
Simutek One 
Dunjonquest 

Percom OS. 80 Disk Operating 
System 
Programs for Primary Schools 
(Number matcher, Maths 
exerciser & spelling test) 
Toolkit 
Zchess 
Xedit 
Scripsit word processor 

MICROBUGS 

Mighty Mormar bugs 
Syscopy/BMON Clashes 
More about Sysmon 
System 80 program alterations 
- Sound effects (July 80) 

- Keyboard bleeper (Nov 80) 

- Draw 2 

- Sound program (July 80) 
KBFIX line missing 
Sea Wolf - program line 
Financing 

Removing linear brackets 
Victory at Bathurst 
80-Composer 
Better Basic programming 

- Part 2 
Super sizzler 
Astronomy 
Util 1 : 2 : 3 : 4 



INPUT/OUTPUT (Letters to the Editor) 



PAGE 

3 
2 
9 
3 
5 
3 
3 



80-Grafix from Programma Int. 


Dec 80 


9 


Dick Smith "Sound Off" kit 


Dec 80 


14 


Escon Selectric conversion 






+ TASP 


Jan 81 


3 


Escon Selectric conversion 






+ SCRIPSIT 


Jan 81 


4 


TRS-80 Model III 


Feb 81 


2 


Upper/lower case for 






Sys80/PMC/V.G. 


Apr 81 


10 



Dec 80 


11 


Dec 80 


14 


Jan 81 


3 


Mar 81 


3 


Mar 81 


4 


Mar 81 


7 


Apr 81 


3 


Apr 81 
Apr 81 
Apr 81 
Apr 81 


4 
5 
7 
9 


Dec 80 


12 


Dec 80 


12 


Mar 81 


5 


Jan 81 


7 


Jan 81 


7 


Jan 81 


7 


Jan 81 


7 


Jan 81 


7 


Feb 81 


7,8 


Mar 81 


10 


May 81 
May 81 
May 81 
July 81 


2 
2 
2 
9 


July 81 
Oct 81 


9 
14 


Oct 81 


14 


Oct 81 


14 



Loading m.l. programs from tape 

into System 80 
Talking your programs in 
Mods, to System 80 problems 
CTR.41 speeding up 
Accepting programs on E.S.F 

wafers 
E.S.F. compatible with Tandy 

disk drives 
Hardware mod. for System 80 

cassette 
String "garbage collection" 

routine 
Computer aided design 
Cassette waveform improvement 
Educational uses of the '80 

MISCELLANEOUS ARTICLES 

Index to Volume 1 

Disk drives questions and 

answers - Pt.2 DOS types 
Superdos forum - chaining, 

zaps 
Writing programs with sound 

for publication 
For disk beginners - upgradi 

L2 programs for disk use 
Why wasn't I told 

(m.l. uses) 
Peeking (U.K.) 
Peeking (U.K.) 
Using L2 programs from disk 
Reversing the role of PRINT 

& LPRINT 
Theory & techniques of 

sorting - Part 1 
Theory & techniques of 

sorting - Part 2 



Dec 80 
Dec 80 
Dec 80 
Dec 80 

Feb 81 

Feb 81 

June 81 



PAGE 



11 



Aug 81 
Oct 81 


7 
15 


Oct 81 


16 


Oct 81 


16 


Dec 80 


23 


Dec 80 


3 


Dec 80 


5 


Mar 81 


2 


ng 
Mar 81 


4 


Mar 81 


7 


May 81 
Aug 81 
Aug 81 


7 
2 
3 


Aug 81 


6 


Sep 81 


7 


Nov 81 


7 



Level 1 + Level 2 mod. with 
2 chips 



Dec 80 
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CONTINUED FROM PAGE 5 

for the Model I. INSTR allows the user to search a string for a specified target section. 
DEFUSR is included as is HEX$. Many Level III commands are implemented in Extended Color Basic. 

Joysticks are 'read' by the JOYSTIK command. Another way is to EXECute HEX A00A and PEEK the 
values stored in (left joystick) Up/Down 15A, Right/Left 15B, (right joystick) Up/Down 15C, 
Right/Left 15D. 

The processor used in the Colour Computer is a Motorola MC 6809 E running at slightly less than 
.9Mhz. To increase the processor speed try POKE 65495,0. The cursor will immediately start 
flashing more quickly. Do not use cassette I/O, SOUND or PLAY commands. These sound generation 
commands will not sound the way you planned. The MC6809 E processor is one of the most powerful 
8 bit micro-processors available with several 16 bit operations. For very complete and thorough 
discussion regarding the construction, hardware design I suggest you read "BYTE' March 1981 
issue. This article also shows requirements for building your own ROM paks. 

Cassette operation on the Colour Computer is different to the Model I in that OPEN and CLOSE 
are used for data files. Transfer of cassette information is at a fast and reliable 1500 baud. 

Available Software : 

Radio Shack have several cartridges available. All these are aimed squarely at the home user, 
and are quite 'idiot proofed' for this purpose. 

Cartridges I have and can recommend from experience are :- 

1. Diagnostic Pak - this is fine for testing your new and shiny Colour Computer, but apart 
from that. .. 

2. Pinball - has a built in playing field which is not yery exciting. BUT you can create 
your own design using the joysticks and save your masterpiece onto cassette tape for future 
reloading. Tilt function and extra ball are included in this well -designed package. 

3. Quaser Commander - is a space 'Seek and Destroy' type game with 3-dimensional aspect to 
the display. The enemy can be stationary or try to escape. You can put your craft on 
'auto pilot', view the radar, vary your throttle setting, kill, destroy - marvellous! If you 
liked Instant Software's Cosmic Patrol, you will love QUASER. 

4. Football - is American grid iron game for two players each controlling their own team. 
Offensive and defensive plays are included. The animation is yery good with men running 
all over the screen. 

5. Dino Wars - is a two player game. Each player controls his/her dinosaur trying to sneak 
up behind his/her opponent and bite the enemy on the neck. Graphics are superb as are 
the sound effects. Suggest for kids 8 to 80. This game is highly recommended. Great 
for giving the wife a beating etc... 

Several more cartridges are available and more are being released soon. Software is available 
from independant sources. One warning: Be careful what you buy as there is some low quality 
material around. I know - I have bought some real junk. But, in amongst the junk, there are 
some brilliant games - Asteroids, Invaders, Adventure etc. available in the U.S.A. Many utilities/ 
programming aids are also available - monitors, editor/assemblers etc. 

Conclusion : 

I heartily recommend this machine as a home computer. For games enthusiasts like myself it 
is exceptional. With unlimited expansion capabilities via the cartridge slot, the user can 
expect many products, languages etc. in the future. 

PRICES : 

The following is a list of prices for the TRS-80 Colour Computer in Australia: 

Basic Colour Computer with 4K RAM $599.00 

Colour Computer with Extended Colour BASIC 16K RAM $849.00 

Colour Computer with Extended Colour BASIC 32K RAM $1,029.00 

Pair of joysticks $39.95 

Disk drive $699.00 

Disk drives 1 , 2 and 3 $499.00 
ROMpaks $39.95 - $59.95 

CONTINUED FROM PAGE 2 

To test whether your machine has lower-case, type in POKE 15872,97 <^ENTER/NEWLINE^ . A lower- 
case a should be printed near the centre of the screen. If it is, then you only need a lower- 
case driver program to obtain lower-case in BASIC. If an upper-case A is printed then you will 
need a hardware modification such as that available from MICRO-80. 
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***** A WORD FROM THE SOFTWARE EDITOR - by Charlie Bartlett ***** 

Due to the Christmas break, combined with a higher than normal receipt of software, the software 
department now has a severe backlog of software to examine. If you sent in software just before 
Christmas, (early December onwards) don't panic - it will be several weeks before you hear anything. 

I also get enquiries from readers who have had software accepted for publication several months 
ago, and who are (naturally) wondering if and when their program will be published. As, at 
the time of writing, I have enough programs on hand for about 9 months and couple that with 
the need to balance the content of the magazine, you can see that programs very rarely get accepted 
and published in the space of a few weeks. As I said above, the content of the magazine has 
to be balanced. You might, for instance, send in a very, very, very good program dealing with, 
say, XLOTTO. (It would HAVE to be good). To take XLOTTO as an example I have three XLOTTO 
programs that are GOOD and deal with the subject in interesting and different ways. If I included 
each XLOTTO in, say, three issues, one after the other, that would be very boring, no matter 
how good each program is. So I space them well apart, which gives you the variety but, of course, 
leaves the author wondering when his program will appear. There are exceptions of course. 
If you send in something that is either very original, very useful or just happens to achieve 
the balance of content that we are looking for, for a particular issue, then you come to the 
top of the pile. 

So if you have been sitting on the edge of your seat waiting to see your program in print - 
don't. Sit back and relax. It WILL appear! We haven't forgotten you and we haven't lost it. 

- 0000000000 - 



• * SOFTWARE SECTION * * 

***** TRIANGLE SOLUTIONS LI/4K - by B. Smith ***** 

This program is designed to calculate unknown sides, angles and area of any triangle. In all 
cases side "SI" must be known and at least two other variables (sides or angles). Conversion 
from degrees, minutes and seconds to decimal degrees can be carried out on screen. 

As the calculations call for numerous trigonometric functions, and as these are not inherent 
in level I ROM's, a call to Tandy's subroutines at line 30000 is required. 

It calculates all unknowns quickly and, in some cases, two solutions whenever doubt exists if 
opposite angles are acute or obtuse. 

This program should be handy to anyone who requires areas for concrete pours, builder for roof 
truss lengths or the student to check homework calculations. 

Instructions start at line 2500; triangle drawing at line 2010; input questions line 100; triangle 
solutions at line 350 and trigonometric functions at line 30000. 

1 REMf TRIANGLE SOLUTIONS FOR THE TRS-80, LEVEL 1,16 Kt 

2 REM * DESIGNED BY BRUCE SMITH * 

3 REM % OF 7 INNES STREET ALBANY W.A.* 

4 REM * APPROXIMATELY 8 K OF RAM IS USED * 
10 CLS 

20 P. A. 270," TRIANGLE SOLUTIONS. ..... " 

30 P.A.326 S "D0 YOU REQUIRE INSTRUCTIONS. (YES = 1 , NO = 2) " ; : IN. Z 

40 IFZ=I60S.2500 

45 60S. 2010 

100 P. A. 385, "LENGTH OF SIDE SI =" ; : I . As IFA=OT. 103 

101 IFA<0T.300 

102 P.A.418, "=";AsG. 105 

103 CLSsP.A.533, "SIDE SI MUST BE KNOWN" s F.N=lT02000sN.Ns G. 45 

105 P. A. 449, "ANGLE Al =" ; s I . Bs IFB=OT. 1 12 

106 IFB<0T.300 

107 P. "IN D.MS <Y=1,N=2) " § sIN.R 

1 08 I FR= 1 60S . 3000 : I FB >= 1 OOT .110 

109 P.A.482,"="5BsG.lll 

110 W=B-100jP.A.482, "= 100 +";W 

111 IFB>=180T.302 

112 P. A. 513, "LENGTH OF SIDE S2 =" s : I . Cs IFC=OT. 1 16 

113 IFC<0T.300 
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115 P.A.546, " = ";C 

116 P. A. 577, "ANGLE A2 =" s s I . Ds IFD=OT. 123 

117 IFD<0T.300 

118 P. "IN D.MS <Y=l,N=2)"s; IN.S 

119 IFS=1G0S. 3100s IFD>=100T. 121 

120 P.A.610, "=":DsG. 122 

121 V=D-100sP.A.610,"= 100 + "sV 

122 IFD>=180T.302 

123 P. A. 641, "LENGTH OF SIDE S3 =" ; s I .Es IFE=OT. 128 

124 IFE<0T.300 

125 IFE=OT. 128 

126 P.A.674, "=";E 

128 P. A. 705, "ANGLE A3 =" s s I . F: IFF=OT. 134 

129 IFF<0T.300 

130 P. "IN D.MS <Y=1,N=2) " ? s IN. Ts IFT=160S.3200 

131 IFF>=100T.133 

132 P.A.738,"=";FsG.134 

133 U=F-100sP.A.738,"= 100 + ";U 

134 IFF>=180T.302 

135 P. A. 768," 

136 P. A. 785, "SQUARE AREA": P. A. 802, "=" 

1 37 H=B+D+F s I FH > 1 SOT . 302 

138 H=A*E*Fs IFH=0T.140 

139 IFH>0T.428 

140 H=A*C*Es IFH=OT. 142 

141 IFH>0T.350 

142 H=F*A*Bs IFH=OT. 144 

143 IFH>0T.375 

144 H=A*B*DsIFH=0T.146 

145 IFH>0T.386 

146 H=A*B*Cs IFH=OT. 148 

147 IFH>0T.396 

148 H=A*C*Ds IFH=OT. 150 

149 IFH>OT.406 

150 H=A*C*F:IFH=0T.304 

151 IFH>0T.437 

299 END 

300 CLS s P. A. 460, "SIDES AND ANGLES CAN NOT BE LESS THAN ZERO" 

301 F.N=1T02000:N.N:G.45 

302 CLS; P. A. 459," ANGLES CAN NOT BE GREATER THAN 180 DEG'S" 

303 F.X=lT02000sN.XsG.45 

304 CLS 

305 P. A. 453, "I'M SORRY, YOU HAVEN'T SUPPLIED SUFFICIENT INFORMATION" 

306 F.N=lT02000sN.NsG.45 

350 P=(A+C+E)/2 

351 Q=(P*(P-C) )/<A*E) ;X=Q:GOS. 30030s S=Y 

352 GOS. 30500 s F=Y*2s IFF>=100T. 354 

353 P.A.738,"="!FsG.355 

354 U=F-100sP.A.738,"= 100 +";U 

355 0= <P* (P-A) ) / (C*E) : X=Os GOS. 30030s S=Y 

356 GOS. 30500s D=Y*2s IFD>=100T. 358 

357 P.A.610, "="sDsG.359 

358 V=D-100sP.A.610,"= 100 +";V 

359 B=180-<D+F) 

360 IFB>=100T.362 

361 P. A. 482,"=" s BsG. 363 

362 W=B-100sP.A.482,"= 100 +"?W 

363 X=Fs GOS. 30370s G=(A*E*Y)/2 

364 P.A.802, "="sG 

365 P. A. 896," ANOTHER RUN <YES = 1, NO = 2) "s s I . I s IFI=1T.45 

366 P. A. 896, "WANT TO CONVERT ANGLES TO DEG'S MIN SEC. (Y=l ,N=2) " s s I . M 

367 IFM=2T.30850 

368 P. A. 896," 

369 P. A. 896, "ANGLE = (DEG'S) "; s I . Xs Y= (X-INT (X) ) *60 

370 Z=<Y-INT(Y))*60 

371 P. A. 925, "="; INT<X) :P. A.931 , INT <Y) : " ' " sP. A.936, INT<Z) 

372 P. A. 939, """s P. A. 942," AGAIN (Y=l , N=2) "; s I . Ns IFN=1T. 368 

373 P. A. 896," 

374 G.365 

375 D=180- <F+B) s IFD>=100T. 402 

376 P.A.610, "="sDsG. 378 

377 V=D-100sP.A.610,"= 100 +"sV 

378 X=Fs GOS. 30370s J=Y*A 

379 X=Ds GOS. 30370s C=J/Y 

380 P.A.546,"="sC 

381 X=Fs GOS. 30350s K=Y* A 

382 X=Ds GOS. 30350s E=C*Y 

383 E=E+KsP.A.674,"=";E 
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384 X=F:60S. 30370: 6=(YSASE)/2 

385 P. A. 802, " = "s 6s 6. 365 

386 F= 1 80- ( B+D ) s I FF >= 1 00T . 389 

387 IFD<0T.304 

388 P. A. 738,"=" ;F: 8. 390 

389 U=F-100:P.A.738,"= 100 + "sU 

390 X=F: BOS. 30370: J=(YSA) 

391 X=Ds 60S. 30370s C=(J/Y) 

392 P.A.546,"="sC 

393 X =F : 60S . 30350 s K= A * Y 

394 X =D s 60S . 30350 s E=C * Y s E= ( E+K ) 

395 P.A.674,"="sEs6,384 

396 X=Bs 60S. 30350s J=YS2SASC 

397 E= < ASA) + (CSC) -Js X=E: 60S. 30010 

398 E=YsP.A.674,"="sE 

399 P= ( A+C+E) /2s K= (PS (P-A) ) / <C*E) 

400 X=K: 60S. 30010s S=Ys 60S. 30500s D=YS2s IFD>=100T. 402 

401 P.A.610,"=";D:6.403 

402 V=D-100:P.A.610, "= 100 + ";V 

403 F= 1 80- ( B+D ) s I FF< =0T . 304 s I FF >= 1 OOT . 405 

404 P. A. 738,"=" sFs 6. 384 

405 U=F-100sP.A.738,"= 100 +";Us6.384 

406 J=C/As X=Ds 60S. 30370s S=YS J s 60S. 30530s F=Ys IFF>=100T. 408 

407 P.A.738,"="sFs6.409 

408 U=F-I00sP.A.738,"= 100 + "sU 

409 B=180-(D+F)sIFB>=100T.411 

410 P.A.482,"="sBs6.412 

411 W=B-100:P.A.482, '*= 100 +";W 

412 X=Bs 60S. 30350s X= (ASA) + (CSC) - (2SASCSY) : 60S. 30010s E=Ys P. A. 674, "=" ; E 

413 X=Fs 60S. 30370s 6= ( YSASE) /2s P. A. 802, " = " ; 6s IFA>=CT. 365 

414 F=180-FsP.A.370,"< OR >" s P. A. 434, As P. A. 562, Cs P. A. 626, D 

415 IFF>=100T.417 

416 P.A.818,Fs6.418 

417 U=F-100sF.A.751,"100+":U 

418 B=180- <D+F) s IFB>=100T. 420 

419 P.A.498,Bs6.421 

420 W=B-100:P.A.495,"100+";W 

421 X=Bs 60S. 30350s X= (ASA) + (C*C) - (2SASCSY) : 60S. 30010 

422 E=YsP.A.690,E 

423 X=Fs 60S. 30370: 6= ( A*E*Y) /2: P. A. 818, 6 

424 6.365 

428 X=Fs 60S. 30350s X= (ASA) + (ESE) - (2SASESY) 

429 60S. 30010s C=Ys P. A. 546, " = " s C 

430 P= (A+C+E) /2s Q= (PS (P-A) )/(CSE)sX=Q 

43 1 60S . 300 1 s S=Y s 80S . 30500 s D= Y S2 : I FD >= 1 OOT . 433 

432 P.A.610,"=";Ds6.434 

433 V=D-100:P.A.610,"= 100 +";V 

434 B= 1 80- ( D+F ) : I FB >= 1 OOT . 436 

435 P.A.482,"="sBs6.363 

436 W=B-100sP.A.482,"= 100 +"sWs6.363 

437 P. A. 418, " = " s As P. A. 546, "=" s C 

438 I FF >= 1 OOT . 440 

439 P.A.738,"=";Fs6.441 

440 U=F-100:P.A.738,"= 100 +";U 

441 X=Fs 60S. 30370s D= ( ASY) /Cs S=Ds 60S. 30530s D=Y 

442 IFD>=100T.444 

443 P. A. 610,"=" ;D: 6. 445 

444 V=D-100sP.A.610,"= 100 +";V 

445 B= 1 80- ( B+F ) : I FB >= 1 OOT . 447 

446 P. A. 482, " = " 5 B: 6. 448 

447 W=B-100:P.A.482, "= 100 +"sW 

448 X=B: 60S. 30350: X= ( ASA) + (CSC) - (2SASCSY) s GOS. 30010 

449 E=Y:P.A.674, "=":E 

450 X=Fs60S.30370s6=(ASESY)/2:P.A.802,"="s6 

451 IFA<=CT.365 

452 P.A.370,"< OR >" s P. A. 434, As P. A. 562, C 

453 IFF MOOT. 455 

454 P. A. 754, F: 6. 456 

455 U=F-100:P.A.751,"100+"sU 

456 D= 1 80-D s I FD >= 1 OOT . 453 

457 P.A.626,D:G.459 

458 V=D-100:P.A.623, "100+"5V 

459 B=180-(D+F):IFBM00T.461 

460 P. A. 498, B: 6. 462 

461 W=B-100:P.A,495, "100+";W 

462 X=Bs 60S. 30350: X= ( ASA) + (CSC) - (2SASCSY) s 60S. 30010 

463 E=Y:P.A.690,E 
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464 

465 

2010 

2011 

2012 

2013 

2014 

2015 

2016 

2020 

2025 

2030 

2040 

2045 

2050 

2060 

2065 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

3000 

3001 

3002 

3003 

30O4 

3100 

3101 

3102 

3103 

3104 

3200 

3201 

3202 

3203 

3204 

5000 

5005 

5006 

5010 

5020 

30000 

30010 

30020 

30030 

30035 

30040 

30050 

30060 

30070 

30080 

30090 

30300 

30310 

30320 

30330 

30340 

30350 

30351 

30360 

30365 

30370 

30371 

30376 



P. 
P. 
P. 
P. 
P. 
P. 
P. 
P, 
P. 



P. 
P. 
I. 



X=Fs GOS. 30370: 6= ( Y*A*E> /2 
P.A.818,G:G.365 
CLS:X=0:Y=0 
P. A. 273, "A3" 
P.A.148,"S1" 
P.A.29,"A1" 
P.A.168,"S2 ,, 
P.A.301,"A2" 
P. A. 349, "S3" 
F. X=40T061 : Y=32-INT ( . 5*X) 
IFY=26.2040 
S. (X,Y)sN.X 

F. X=61T087: Y=INT ( . 333*X ) -16 
IFY=13G.2060 
S. (X,Y):N.X 

F.X=82T044STEP-2:Y=12:S. (X,Y);N.X 
RET. 
CLS 

P. A. 14, " TRIANGLE SOLUTIONS. ....." 

P." THIS PROGRAM WILL CALCULATE THE LENGTH OF UNKNOWN" 

SIDES, UNKNOWN ANGLES & AREA. ACCURACY AT LEAST TO TWO" 
DECIMAL PLACES CAN BE EXPECTED BUT WILL DIMINISH WITH" 
SMALLER ANGLES." 

FOR SIDES OR ANGLES WHICH ARE UNKNOWN ENTER O (ZERO)." 
IN ALL PROBLEMS 'SI * MUST BE KNOWN, AS WELL AS " 
TWO OTHER SIDES OR ANGLES." 

A PERIOD MUST BE USED AFTER THE NUMBER OF WHOLE DEGREE'S, 1 
FOR EXAMPLE s-" 

112 DEG'S 13 MIN 57 SEC = 112.1357" 
P. "THIS ANGLE IS THEN IN < D.MS > (DEG'S .MIN SEC). THE" 
P. "COMPUTER WILL THEN CONVERT THE ANGLES TO DECIMAL DEGREE'S, 
OUTPUT IS ALSO IN DECIMAL DEG'S BUT CAN BE CONVERTED TO" 
D.MS ON THE SCREEN." 
PRESS < ENTER > TO RUN"; A* 
RET. 

X=INT(B) 
Y=(B-X)*100 
Z=(Y-INT(Y) )*100 
B=((Z/60)+INT(Y) )/60+INT(B) 
RET. 

X=INT(D) 
Y=(D-X)*100 
Z=(Y-INT(Y))*100 
D=( (Z/60)+INT(Y))/60+INT(D) 
RET. 

X=INT(F) 
Y=(F-X)*100 
Z=(Y-INT(Y))*100 
F=( (Z/60)+INT(Y) )/60+INT(F) 
RET. 

IFR>0G.5010 

P."WHAT.THIS ANGLE IS LESS THAN O" : F. N=1T03000: N. N 
RET. 

S=Rs S=S*100: S=S-INT (S) : S=S/60 
P. "S=" ; S: F. N=lT03000s N. N: RET 
E. 

REM *SQUARE ROOT* IN. X, OUT Y 
REM ALSO USES W & Z INTERNALLY 
IF X=OT.Y=OsRET. 
W=0: Z=0 
IFX>0T.30060 

P. "ROOT OF NEGATIVE NUMBER ?":STOP 
Y=X*.5:Z=0 
W=(X/Y-Y)*.5 
IF(W=0)+(W=Z)T.RET. 
Y=Y+W: Z=W: G. 30070 

REM * TANGENT* IN. X IN DEG'S, OUTPUT Y 
REM ALSO USES A,C,W,Z INTERNALLY 
A=X: GOS. 30360 

IF ABS(YX1E-5T. P. "TANGENT UNDEFINED": ST. 
C=Y: X=A: GOS. 30376: Y=Y/C: RET. 
REM *COSINE* IN. X IN DEG'S, OUTPUT Y 
REM ALSO USES W, Z INTERNALLY 

W=ABS ( X ) /X : X=X+90: GOS. 30376: IF ( Z=-l ) * (W=l > T. Y=-Y 
RET. 

REM *SIN* IN.X IN DEG'S, OUTPUT Y 
REM ALSO USES Z INTERNALLY 
Z=ABS<X)/X:X=Z*X 
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30380 
30390 
30400 
30405 
30410 
30420 
30430 
30440 
30450 
30455 
30500 
30510 
30520 
30530 
30535 
30540 
30550 
30560 
30570 
30580 
30600 
30610 
30620 
30625 
30630 
30660 
30670 
30680 
30690 
30700 
30710 
30720 
30730 
30740 
30750 
30760 
30800 
30810 
30820 
30830 
30840 
30850 



IFX>360T. X=X/360s X= (X-INT(X> ) *360 

IFX>90T.X=X/90sY=INT(X):X=<X-Y)*90sONYG. 30410, 30420, 30430 

X=X/57. 29578s IF ABS<XX2.48616E-4 Y=0sRET. 

6. 30440 

X=90-XsG. 30400 

X=-XsG. 30400 

X=X-90sG. 30400 

Y=X-X*X*X/6+X*X*X*X*X/120-X*X*X*X*X*X*X/5040 

Y=Y+X*X*X*X*X*X*X*X»X/362880s IFZ=-1T. Y=-Y 

RET. 

REM * ARCCOS * IN. S, OUT Y,W 

REM Y IS IN DEGREES, W IS IN RADIANS 

GOS. 30550: Y=90-Ys W=l . 570796-W: RET. 

REM * ARCSIN * IN.S, OUT Y,W 

REM Y IS IN DEGREES, W IS IN RADIANS 

REM ALSO USES VARIABLES X, Z INTERNALLY 

X=Ss IFABS (S) <=. 707107T. 30610 

X=l-S*SsIFX<OT.P.S;"IS OUT OF RANGE": STOP 

W=X/2sZ=0 

Y=(X/W-W)/2sIF<Y=0)+<Y=Z)T.X=W:G.30610 

W=W+Ys Z=Y: 6. 30580 

Y=X+X*X*X/6+X*X*X*X*X*.075+X*X*X*X*X*X*X*4.464286E-2 

W=Y+X*X*X*X*X*X*X*X*X*3.038194E-2 

I FABS < S ) > . 707 1 07T . W= 1 . 570796-W 

Y=W*57. 29578s RET. 

REM * ARCTANGENT * IN. X , OUT C, A 

REM C IS IN DEGREES. A IS IN RADIANS 

REM ALSO USES B, T INTERNALLY 

GOS. 30810s X=ABS(X)sC=0 

IFX>lT.C=lsX=l/X 

A=X*X 

B= ( (2. 86623E-3*A-1 . 61657E-2) *A+4. 29096E-2) *A 

B= ( ( ( ( B-7 . 5289E-2 ) * A+ . 1 06563 ) * A- . 

A= ( (B-. 333332) *A+1 ) *X 

I FC= 1 T . A= 1 . 570796- A 

A=T*As C=A*57. 29578 s RET. 

REM * SIGN * IN. X , OUT T= -1, O OR +1 

IFX<0T.T=-1 

IFX=OT.T=0 

IFX>0T.T=1 

RET. 

CLSsE. 



142089) *A+. 199936) *A 



***** 3D MAZE L2/16K - by S. Holloway ***** 

The program produces a 3-D display of the player's position in a maze, allowing him/her to turn 
and move. The aim is to find the exit with the fewest turns, moves and looks at the map„ 

Program Action 

A single two-dimensional array is used for the maze cell data. Each cell can have a value of 
0-15 (higher value is used to identify border). Each bit (1,2,3,8) represents a wall so means 
no walls, 1 a West wall, 2 a North wall, 3 a North and a West wall and so on. 

The maze is made by making a random route until a dead end is met. Then a new route is attached 
to the first and this proceeds randomly until dead end. Another route added, and so on until 
all cells have been used. An exit is made on the South edge and ths maze is complete. 

To display a correct 3-D picture of the player's position, the program rotates the cell information 
using a logical shift. A cell having a value of 11 has a V'est wall (1), a North wall (2) and 
a South wall (8). If the player is facing East the cell is rotated right once, i.e. 1011 becomes 
1101 or 13 - this signifies a left wall, a right wall and a wall behind which is, of course, 
not displayed. 

The 'help' routine prints a map of the maze and marks the player's position with a flashing 
'X'. The keyboard is disabled during the map display so it cannot be held longer than a set 
time. 



A hint for players is to remember the direction you are facing and remember the exit is only 
obvious when you are right next to it. 

As only 8K of memory is used there is room to add extras like random hazards and even develop 
a full adventure-type program. In this case it would be necessary to change the route-making 
section as the present method produces a simple connected maze, i.e. only one route and no 
loops. 
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10 

9 

8 
7 
h 
5 
4 



PLAN OF THE HAZE 

3 I n 1 1 i I 

8MB una | I smb 



SCORE 




1 2 3 4 5 6 7 B 9 10 
YOU ARE AT T AND THE EXIT AT 'E' - YOU ARE FACING WEST 



COMMAND? 




COMMAND? 




COMMAND? 



SCORE 496 




Z=4;G0T0 130 
Z=2s GOTO 130 



10 RANDOMS REM SET ARRAY AND INSTRUCTIONS 

20 DEFINTA-ZsCLS 

30 GOSUB 2760s S= 1000 

40 DIMA(li,ll) 5 FORI=lT010;FORJ=lT010sA(I,J)=15sNEXTJ;NEXTI 

50 F0RJ=0T011sA(J„0)=100sA<J, 1 1 ) =100: A (O, J > = 100; A <1 1 , J ) =100- NEXT 

J 

60 G0SUB2810 

70 REM FIND START 

80 X=RND<10> sY=lsXX=XsYY=Y 

90 D=RND ( 3 ) : ONDDGOTO 1 00 , 1 1 O , 1 20 

100 IFA<X-1,Y>=15THEND=1:A<X„Y)=14:X=X-1 

110 IFA(X+l,Y)=15THEND=4:A(X,Y)=llsX=X+l 

120 IFA<X,Y+1>=15THEND=8:A<X,Y)=7sY=Y+1:Z=3j60TQ 130 

130 D2=D 

140 REM BEGIN ROUTE FINDING 

150 GOSUB 170s IF F=l THEN 390 

160 GOTO 180 

170 F=0s IFA < X + l , Y)< >15ANDA < X-l , Y>< >15ANDA (X , Y+l )< >15ANDA < X , Y-l >< 

> 1 5THENF= 1 : RETURNELSERETURN 

180 R=RND(3) s IFR=lTHENDl=D*2s IFD1 >8THEND1=D1/16 

190 IFR=2THENDl=DELSEIFR=3THENDl=D/2: IFDK 1THEND1=S 

200 REM SET ARRAY 

210 I FD 1 =4THEN340ELSE I FD 1 = 1 THEN260ELSE I FD 1 =8THEN300ELSE220 

220 IF A<X,Y-1> O15THEN180 

230 IFD=2THENA(X,Y)=5sY=Y-lsGQT0 380 

240 I FD= 1 THEN A ( X , Y ) =9 s Y= Y- 1 s G0T0380 

250 I FD=4THENA < X , Y ) = 1 2 s Y=Y- 1 s G0T0380 

260 IFA(X-l ? Y)O15THEN180 

270 IFD=2THENA < X , Y) =6: X=X-1 s 60T0380 

280 IFD=1THENA (X, Y) =10s X=X-1 s G0T0380 

290 IFD=8THENA ( X, Y) =12: X=X-1 : GOT0380 

300 IFA(X,Y+l)O15THEN180 

310 I FD= 1 THEN A ( X , Y > =3 s Y=Y+ 1 s G0T0380 

320 I FD=8THEN A ( X , Y ) =5 s Y= Y+ 1 s G0T0380 

330 I FD=4THENA ( X , Y ) =6 s Y=Y+ 1 s GOT0380 

340 IFA(X + 1 !I Y)<>15THEN180 

350 IFD=2THENA ( X , Y) =3s X=X+1 s G0T0380 

360 IFD=8THENA (X, Y) =9: X=X+1 s G0T0380 

370 IFD=4THENA(X,Y>=10sX=X+I:G0T0380 

380 N=N+l:D=DlsG0T0 140 

390 REM DEAD END 

400 IFD=lTHENA(X,Y)=llsN=N+l 

410 IFD=2THENA(X,Y)=7sN=N+l 
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420 IFD=4THENA(X,Y)=14sN=N+l 

430 IFD=8THENA(X,Y)=13;N=N+1 

440 REM FIND SPACES 

450 FQRJ=lT010sF0RI=lT010sIF A ( I , J) =15THENX=I : Y=JsG0T0 470 

460 NEXTI sNEXTJs GOTO 520 

470 IFA(X+1,Y) >OAND A(X+1,Y)<15 THEN X=X+1 s A (X, Y) =A (X, Y) -1 ;D=1 s X 

=X-lsG0T0 140 

480 IFA (X-l , Y) >OANDA ( X-l , Y)< 15THENA (X-l , Y> =A ( X-l , Y) -4 s D=4s 60T014 



490 IFA(X,Y+1) >OANDA(X,Y+lX15THENA(X,Y+l)=A(X,Y+l)-2sD=2;GOTO 1 

40 

500 IF A ( X , Y-l ) >OANDA ( X , Y-l >< 15THENA < X, Y-l ) =A ( X , Y-l ) -8: D=8s GOT01 

40 

510 GOTO 460 

520 REM MAKE EXIT 

530 X1=RND(10) ;A(XI,10)=A(Xl,10)-8 

540 X=XXsY=YYsGOTO 880 

550 END 

560 REM DISPLAY 

570 CLS SPRINT" PLAN OF THE MAZE S 

CORE" s S 

580 J=l 

590 1 = 1 SPRINT" ";11-J;;IFJ=1THENPRINT" "sELSEPRINT" "; 

600 ONA ( I , J ) GOTO 620 , 630 , 640 , 650 , 660 , 670 , 680 , 690 , 700 ,710, 720 , 730 

,740,750,760 

610 PR I NTCHR* < 1 40 ) ; CHR* (191); CHR* ( 1 40 ) ; s G0T0770 

620 PR I NTCHR* ( 32 ) s CHR* (191); CHR* ( 1 40 ) ; ; GOTO 770 

630 PR I NTCHR* ( 1 40 ) s CHR* ( 1 88 ) s CHR* ( 1 40 ) s s G0T0770 

640 PR I NTCHR* ( 32 ) ; CHR* (188); CHR* ( 1 40 ) ; : G0T0770 

650 PR I NTCHR* ( 1 40 ) ; CHR* (191); C-HR* ( 32 ) ; ; G0T0770 

660 PR I NTCHR$ ( 32 ) ; CHR* (191); CHR* ( 32 ) ; s G0T0770 

670 PR I NTCHR* (140); CHR* ( 1 88 ) s CHR* ( 32 ) ; s G0T0770 

680 PR I NTCHR* ( 32 ) ; CHR* ( 1 88 ) ; CHR* ( 32 ) ; s G0T0770 

690 PR I NTCHR* (140); CHR* ( 1 43 ) ; CHR* ( 1 40 ) ; s G0T0770 

700 PR I NTCHR* ( 32 ) ; CHR* (143); CHR* ( 1 40 ) ; ; 60T0770 

710 PR I NTCHR* ( 1 40 ) ; CHR* ( 1 40 ) ; CHR* ( 1 40 ) ; s G0TQ770 

720 PR I NTCHR* ( 32 ) ; CHR* ( 1 40 ) ; CHR* ( 1 40 ) ; s G0T0770 

730 PR I NTCHR* ( 1 40 ) ; CHR* ( 1 43 ) ; CHR* ( 32 ) ; s G0T0770 

740 PR I NTCHR* ( 32 ) ; CHR* ( 1 43 ) ; CHR* ( 32 ) ; s 60T0770 

750 PR I NTCHR* ( 1 40 ) ; CHR* ( 1 40 ) ; CHR* ( 32 ) ; s 60T0770 

760 PR I NTCHR* ( 32 ) ; CHR* ( 1 40 ) ; CHR* ( 32 ) ; 

770 1=1+1: IFI<=10 THEN600 

780 PRINTS J=J+1; IFJ<=10 THEN590 

790 PR I NT37 1 5+3$ X 1 , " E " 

800 PRINT" 123456789 10" 

810 PRINT" YOU ARE AT 'X' AND THE EXIT AT *E' - "? 

820 PR I NT "YOU ARE " ; s GOSUB 970 

830 T=50s P1=PEEK ( 15371+3*X+64f Y) 

840 T=T- 1 s I FT< 1 THEN RETURN ; PR I NT353 , S ; 

850 PRINTS)! 1+3* X+64*Y, "X"; : F0RI=lT0100s NEXTI 

860 PRINT31 1+3*X+64?Y,CHR*(P1) ; s F0RI=lT0100s NEXTI 

870 GOTO 840 

880 REM SET TO GO 

890 PRINT" MAZE COMPLETE" s PRINT 

900 PRINT"EXIT IS AT" ; XI ; "EAST, 1 NORTH" 

910 PRINT; G0SUB950 SPRINT 

920 INPUT"READY";Z* 
930 GOTO 1470 

940 REM HELP ROUTINE 

950 PR I NT "YOU ARE AT" ;X; "EAST" 

960 PR I NT " " ; 1 1 - Y ; " NORTH " 

970 PRINT" FACING " ; 

980 0NZ60T0990, 1000, 1010, 1020 

990 PRINT"N0RTH"sG0T0 1030 

1 000 PR I NT " EAST " s GOTO 1 030 

1 10 PR I NT " SOUTH " s GOTO 1 030 

1020 PR I NT "WEST" 

1030 RETURN 

1040 REM INPUT ROUTINE 

1050 IFS<1THENPRINT"S0RRY - YOU RAN OUT OF POINTS !"sEND 

1060 IF Y=ll THEN 2740 

1070 PRINT30, "COMMAND? "s : Z*=INKEY*s IFZ*=" "THEN1070 

1080 IFZ*="L"THENS=S-5sZ=Z-lsG0T0 1130 

1090 IFZ*="R"THENS=S-5sZ=Z+lsG0T0 1130 

1100 I FZ*="H"THENS=S/2s POKE 16405,0 s GOSUB 560 s POKE 16405, Is GOTO 147 

O 

1110 IFZ*="F"THEN S=S-2s60T0 1410 
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1120 PRINT30,"L FOR LEFT,R FOR RIGHT, F FOR FOREWARD,H FOR HELP 
" 5 : F0RI = lT02000s NEXT I : PRINT30, " 

"psGOTO 1070 
1 1 30 I FZ< 1 THENZ=Z+4ELSE I FZ >4THENZ=Z-4 
1140 60SUB 1150: GOTO 1470 
1150 REM ROTATE AND LOOK ROUTINE 
1160 IF B>10 THEN G0T01260 
1170 F=A(A,B) 
1180 IFZ=1THEN 1220 
1190 F0RI=2T0Z 

1200 F=INT<F/2>+(F-INT(F/2>*2)*8 

1210 NEXTI 

1220 C=F-INT(F/2>*2 

1230 D=INT(F/4)-INT<F/8)*2 

1240 E=INT(F/2)-INT(F/4>*2 

1250 RETURN 

1260 REM OUTSIDE 

1270 C=0:D=0:E=-1 

1280 RETURN 

1290 REM NEXT CELL 

1300 IFE>0THEN1370 

1310 IFZ=1THENB=B-1 

1320 IFZ=2THENA=A+1 

1330 IFZ=3THENB=B+1 

1340 IFZ=4THENA=A-1 

1350 RETURN 

1360 REM MESSAGE 

1370 IFE=1THENPRINT5>532, "NO WAY !!"; 

1380 F0RJ=lT01000sNEXTJ 

1390 RETURN 

1400 REM FOREWARD 

1410 A=X:B=Y 

1420 GOSUB 1150 

1430 GOSUB 1290 

1440 X=AsY=B 

1450 IF E>0 THEN 1050 

1460 REM START OF 3-D DISPLAY 

1470 A=X:B=Y 

1480 GOSUB 1150 

1490 F0RT=1 T05 

1500 GOSUB 1570 

1510 IF EOO THEN 1050 

1520 GOSUB 1290 

1530 GOSUB 1150 

1540 IF E=2 THEN 1050 

1550 NEXTT 

1560 GOTO 1050 

1570 ON T GOTO 1580,1700.2060,2370,2590 

1580 CLS:PRINT30,"LAST COMMAND "; Z*; :PRINT5>45, "SCORE" ;S 

1590 IFE<0 OR EM THEN RETURN 

1600 W= 15360: FOR I =71 TO 967 STEP 64 

1610 POKEW+1,191 

1620 POKEW+I+44, 191 

1630 NEXTI 

1640 IF E=0 RETURN 

1650 F0RI=72 TO 114 

1660 POKEVV+1,131 

1670 POKE W+I+896,176 

1680 NEXTI 

1690 RETURN 

1700 REM DEPTH 2 

1710 IFE<OTHEN RETURN 

1720 IF C=0THEN1800 

1 730 K=72 : M=968 : P= 1 40 : Q=P : GOSUB 1 790 

1740 K=K+1 : M=M+1 : P=176: Q=131 : GOSUB 1790: K=K+65: M=M-63s P=131 : Q=17 

6 : GOSUB 1 790 : K=K+ 1 : M=M+ 1 : P= 1 40 : Q= 1 40 : GOSUB 1 790 

1750 K=K+1 : M=M+1 : P=176: 0=131 : G0SUB1790: K=K+65: M=M-63: P=131 : Q=176 

: GOSUB 1790 

1760 K=K+ 1 s M=M+ 1 : P= 1 40 :Q= 140: GOSUB 1790 

1770 K=K+l:M=M+l:P=176:Q=131s GOSUB 1790 

1780 GOTO 1840 

1 790 POKE VV+K , P s POKE VV+M , Q : RETURN 

1800 FOR I =264 T0271 

1810 POKEVV+1,131 

1820 POKEVV+I+512, 176 

1830 NEXTI 

1840 IF D=0 THEN 1920 

1850 K=114:M=1010:P=140:Q=P:G0SUB1790 
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DONTBEHELD BACK BY AIM 
ANTIQUATED DISK OPERATING SYSTEM 

MOVE UP TO 
NEWDOS80 $149incl. p&p 

NEWDOS 80 is a completely new DOS for the TRS-80 
SYSTEM 80. It is well-documented, bug free and 
increases the power of your system many times over. It 
is upward compatible with TRSDOS AND NEWDOS (ie 
TRSDOS and NEWDOS+ programs will run on 
NEWDOS 80 but the reverse is not necessarily so). 

These are just a few of the many new features offered 
by NEWDOS 80. 

* New BASIC commands that support variable record 
lengths up to 4095 bytes long. 

* Mix or match disk drives. Supports any track count 
from 18 to 96. Use 35, 40, 77 or 80 track 5 1 /4 inch 
mini disk drives, 8 inch disk drives OR ANY COM- 
BINATION. 

* An optional security boot-up for BASIC or machine 
code application programs. User never sees "DOS- 
READY" or "READY" and is unable to "BREAK", 
clear screen or issue any direct BASIC statements, 
including "LIST". 

* New editing commands that allow program lines to 
be deleted from one location and moved to another 
or to allow the duplication of a program line with 
the deletion of the original. 

* Enhanced and improved RENUMBER that allows 
relocation of subroutines. 

* Create powerful chain command files which will 
control the operation of your system. 

* Device handling for routing to display and printer 
simultaneously. 

* MINIDOS - striking the D, F and G keys simul- 
taneously calls up a MINIDOS which allows you to 
perform many of the DOS commands without dis- 
turbing the resident program. 

* Includes Superzap 3.0 which enables you to display/ 
print/modify any byte in memory or on disk. 

* Also includes the following utilities: 

— Disk Editor/Assembler 

— Disassembler (Z80 machine code) 

— LM offset — allows transfers of any system tape 
to Disk file — automatically relocated. 

— LEVEL I — Lets you convert your computer back 
to Level 1 . 

— LVIDKSL — Saves and loads Level 1 programs to 
disk. 

— DIRCHECK — Tests disk directories for errors 
and lists them. 

— ASPOOL — An automatic spooler which routes a 
disk file to the printer whilst the computer con- 
tinues to operate on other programs. 

— LCDVR — a lower case drives which display lower 
case on the screen if you have fitted a simple lower 
case modification. 



DISK DRIVE USERS 

ELIMINATE CRC ERRORS 
AND 
TRACK LOCKED OUT MESSAGES 
FIT A PERC0M DATA SEPARATOR 
$37.00 plus $1 .20 p&p. 
When Tandy designed the TRS-80 expansion interface, 
they did not include a data separator in the disk- 
controller circuitry, despite the I.C. manufacturer's 
recommendations to do so. The result is that many 
disk drive owners suffer a lot of Disk I/O errors. The 
answer is a data separator. This unit fits inside your 
expansion interface. It is supplied with full instructions 
and is a must for the serious disk user. 



MPI DISK DRIVES 
HIGHER PERFORMANCE - LOWER PRICE 

MPI is the second largest manufacturer of disk drives in 
the world. MPI drives use the same form of head 
control as 8" drives and consequently, they have the 
fastest track-to-track access time available — 5msec! All 
MPI drives are capable of single or double-density 
operation. Double-density operation requires the instal- 
lation of a PERCOM doubler board in the expansion 
interface. 

As well as single head drives, MPI also makes dual- 
head drives. A dual-head drive is almost as versatile as 
two single-head drives but is much cheaper. 

Our MPI drives are supplied bare or in a metal cabinet 
- set up to operate with your TRS-80 or SYSTEM 80. 
All drives are sold with a 90 day warranty and service is 
available through MICRO-80 PRODUCTS. 

MPI B51 40 Track Single Head Drive only $349 

MPI B52 40 Track Double Head Drive only $449 

Prices are for bare drives and include p&p. Add $10.00 
per drive for a cabinet and $60.00 for a power supply 
to suit two drives. 40 track drives are entirely compa- 
tible with 35 track drives. A 40 track DOS such as 
NEWDOS 80 is necessary to utilise the extra 5 tracks. 



OVER 800 KILOBYTES ON ONE DISKETTE! 
WITH MPI 80 TRACK DRIVES 

MPI 80 track drives are now available. The B91 80 
track single-head drive stores 204 Kilobytes of for- 
matted data on one side of a 5% inch diskette in single- 
density mode. In double-density mode it stores 408 
Kilobytes and loads/saves data twice as quickly. 
The B92 80 track dual-head drive stores 204 Kilobytes 
of formatted data on EACH side of a 5% inch diskette 
in single-density mode. That's 408 Kilobytes per 
diskette. In double-density mode, the B92 stores a 
mammoth 408 Kilobytes per side or 816 Kilobytes of 
formatted data per diskette. With two B92's and a 
PERCOM double, you could have over 1.6 Megabytes 
of on line storage for your TRS-80 for less than $1500!! 

MPI B91 80 Track Single Head Drive only $499 

MPI B92 80 Track Dual Head Drive only $619 

Prices are for bare drives and include p&p. Add $1 0.00 
per drive for a cabinet and $60.00 for a power supply 
to suit two drives. Note: 80 track drives will not read 
diskettes written on a 35 or 40 track drive. If drives 
with different track counts are to be operated on the 
same system, NEWDOS 80 must be used. 



CARE FOR YOUR DISK DRIVES? 

THEN USE 

3M's DISK DRIVE HEAD CLEANING DISKETTES 

$30.20 incl. p&p. 

Disk drives are expensive and so are diskettes. As with 
any magnetic recording device, a disk drive works 
better and lasts longer if the head is cleaned regularly. 
In the past, the problem has been, how do you clean 
the head without pulling the mechanism apart and run- 
ning the risk of damaging delicate parts. 3M's have 
come to our rescue with SCOTCH BRAND, non- 
abrasive, head cleaning diskettes which thoroughly 
clean the head in seconds. The cleaning action is less 
abrasive than an ordinary diskette and no residue is 
left behind. Each kit contains: 

— 2 head cleaning diskettes 

— 1 bottle of cleaning fluid 

— 1 bottle dispenser cap 



PLEASE USE ORDER FORM ON PAGE 36 



PAGE 18 



USE TANDY PERIPHERALS ON YOUR SYSTEM-80 
VIA 
SYSPAND-80 - $97.50 incl. p&p 
The SYSTEM-80 hardware is not compatible with the 
TRS-80 in two important areas. The printer port is 
addressed differently and the expansion bus is entirely 
different. This means that SYSTEM-80 owners are 
denied the wealth of economical, high performance 
peripherals which have been developed for the TRS-80. 
Until now, that is. MICRO-80 has developed the 
SYSPAND-80 adaptor to overcome this problem. A 
completely self-contained unit in a small cabinet which 
matches the colour scheme of your computer, it con- 
nects to the 50-way expansion part on the rear'of your 
SYSTEM 80 and generates the FULL Tandy 40 way 
bus as well as providing a Centronics parallel printer 
port. SYSPAND-80 enables you to run an Exatron 
Stringy Floppy from your SYSTEM 80, or an LNW 
Research expansion interface or any other desirable 
peripherals designed to interface to the TRS-80 expan- 
sion port. Make your SYSTEM 80 hardware compatible 
with the TRS-80 via SYSPAND-80 



PROGRAMS BY MICROSOFT 

EDITOR ASSEMBLER PLUS (L2/16K) 
$37.50 + $120 p&p 

A much improved editor-assembler and debug/monitor 
for L2/16K TRS-80 or SYSTEM 80. Assembles directly 
into memofy, supports macros and conditional assem- 
bly, includes new commands-substitute, move, copy 
and extend. 

LEVEL HI BASIC $59.95 plus $1.20 p&p 

Loads on top of Level II BASIC and gives advanced 
graphics, automatic renumbering, single stroke instruc- 
tions (shift-key entries) keyboard debounce, suitable 
for L2/16K and up (Not Disk BASIC) 

ADVENTURE ON DISK $35.95 plus $1.20 p&p 

This is the original ADVENTURE game adapted for 
the TRS-80. The game fills an entire diskette. Endless 
variety and challenge as you seek to rise to the level of 
Grand Master. Until you gain skill, there are whole 
areas of the cave that you cannot enter. (Requires 32K 
One Disk) 

BASIC COMPILER $208 plus $2.00 p&p 

New improved version, the Basic Compiler converts 
Disk BASIC programs to machine code, automatically. 
A compiled program runs, on average, 3-10 times faster 
than the original BASIC program and is much more 
difficult to pirate. 



UPGRADE TO 16K 
FOR ONLY $30.00!! 

MICRO-80's 16K MEMORY EXPANSION KIT 
HAS BEEN REDUCED IN PRICE EVEN MORE 

Larger volume means we buy better and we pass the 
savings on to you. These are our proven, prime, branded 
200 ns (yes, 200 nanosecond) chips. You will pay 
much more elsewhere for slow, 350 ns. chips. Ours are 
guaranteed for 12 months. A pair of DIP shunts is also 
required to upgrade the CPU memory in the TRS-80 - 
these cost an additional $4.00. All kits come complete 
with full, step-by-step instructions which include 
labelled photographs. No soldering is required. You do 
not have to be an experienced electronic technician to 
instal them. 



DISK DRIVE CABLES 
SUITABLE FOR ANY DISK DRIVES 

DC-2 2 Drive Connector Cable $39 incl. p&p 

DC-4 4 Drive Connector Cable $49 incl. p&p 



DOUBLE THE SPEED AND CAPACITY 
OF YOUR DISK DRIVES 
PERC0M D0UBLER ONLY $220 
plus $2.00 p&p 
Installing a Doubler is like buying another set of disk 
drives, only much cheaper!! The doubler works with 
most modern disk drives including:- MPI, Micropolis, 
Pertec, TEAC (as supplied by Tandy). The doubler 
installs in the TRS-80 expansion interface, the System- 
80 expansion interface and the LNW Research expan- 
sion interface in a few minutes without any soldering, 
cutting of tracks, etc. It comes complete with its own 
TRSDQS compatible double density opera ting system. 

D0l*tLE-ZAP II - DOUBLE DENSITY PATCH 
FORNEWDOS80 
$53.00 plus $1.00 p&p 

cou argf A»q fcrsWDOS 80, then you also need 
jette. This program upgrades 
your NE ^QOSMfc^)ubVdensity with ADR (auto- 
matic density>^cSg||MMy ins-tains all the familiar 
features, including tHWMto tbsmix and match 
track counts on the^me^^MjIn attention, it gives 
NEWDOS 80 the ability\to ™|w^esV the same 
cable, automatically. If ybxpl^^^^igleNlensity 
diskette in drive 0, say and a^ubrt^fsity diskette 
in drive 1, Double-Zapll will recogs^se this and reac 
write to drive in single density whrteiat the same 
time it reads/writes to drive 1 in double deWfy! 



DOUI 



FLOPPY DOCTOR AND MEMORY DIAGNOSTIC 
(by MICRO CLINIC) $29.95 plus 50c. p&p 
Two machine language programs on a diskette together 
with manual which thoroughly test your disk drives 
and memory. There are 19 possible error messages in 
the disk drive test and their likely causes are explained 
in the manual. Each pass of the memory tests checks 
every address in RAM 520 times, including the space 
normally occupied by the diagnostic program itself. 
When an error occurs the address, expected data, and 
actual data are printed out together with a detailed 
error analysis showing the failing bit or bits, the corres- 
ponding IC's and their location. This is the most 
thorough test routine available for TRS-80 disk users. 



BOOKS 

LEVEL II ROM REFERENCE MANUAL 
$24.95 + $1.20 p&p 

Over 70 pages packed full of useful information and 
sample programs. Applies to both TRS-80 and SYSTEM 
80. 

TRS-80 DISK AND OTHER MYSTERIES 

$24.95 + $1.20 p&p 

The hottest selling TRS-80 book in the U.S.A. Disk file 
structures revealed, DOS's compared and explained, 
how to recover lost files, how to rebuild crashed 
directories - this is a must for the serious Disk user 
and is a perfect companion to any of the NEWDOS's. 

LEARNING LEVEL II 

$16.95 + $1.20 p&p 

Written by Daniel Lien, the author of the TRS-80 

Level I Handbook, this book teaches you, step-by-step, 

how to get the most from your Level II machine. 

Invaluable supplement to either the TRS-80 Level II 

Manual or the System-80 Manuals. 



ORE AUSTRALIAN SOFTWARE 



AH programs designed to run on both the TRS-80 or the SYSTEM 80 without modification. Most programs include sound 



TRIAD VOL 1 -L2/16K 

Cassette $1 0.95 Disk $1 5.95 

+ 60c p&p 

Three separate games which test your powers of memory and 

concentration. The programs combine graphic displays and 

sound: 

SIMON-SEZ: Just like the electronic music puzzles on sale for 
more than $20. Numbers are flashed on the screen and sounded 
in a sequence determined by the computer. Your task is to 
reproduce the sequence, correctly. 

LINE?: Rather like a super, complicated version of noughts 
and crosses. You may play against another player or against 
the computer itself. But beware, the computer cheats! 
SUPER CONCENTRATION: Just like the card game but with 
more options. You must find the hidden pairs. You may play 
against other people, play against the computer, play on your 
own, or even let the '80 play on its own. 

TRIADVOL2-L2/16K 

Cassette $10.95 Disk $15.95 

+ 60c p&p 

Remember those "NUMERO" puzzles in which you had a 
matrix of numbers (or letters) with one blank space and you 
had to shuffle the numbers around one at a time until you 
had made a particular pattern? Well, SHUFFLEBOARD, the 
first program in this triad, is just this, except that the computer 
counts the number of moves you take to match the pattern 
it has generated — so it is not possible to cheat. 
MIMIC is just like SHUFFLEBOARD except that you only 
see the computer's pattern for a brief span at the beginning of 
the game, then you must remember it! 

In MATCHEWI, you have to manoeuvre 20 pegs from the 
centre of the screen to their respective holes in the top or 
bottom rows. Your score is determined by the time taken to 
select a peg, the route taken from the centre of the screen to 
the hole and your ability to direct the peg into the hole with- 
out hitting any other peg or the boundary. 

VISURAMA L2/16K 

Cassette $10.95 Disk $15.95 

+ 60c p&p 

Two programs which give fascinating, ever-changing patterns 

on the screen. 

LIFE is the fastest implementation of the Game of Life you 
will see on your '80. Machine language routines create up to 
1200 new generations per minute for small patterns or up to 
100 per minute for the full 128 x 48 screen matrix. Features 
full horizontal and vertical wraparound. 

EPICYCLES will fascinate you for hours. The ever-changing 
ever-moving patterns give a 3D effect and were inspired by the 
ancient Greek theories of Ptolemy and his model of the Solar 
system. 

EDUCATION AMD FUN - L1/4K, L2/16K 
Cassette $10.95 Disk $15.95 
+ 60c p&p 
Written by a primary school teacher to make learning enjoy- 
able for his pupils, there are five programs in both Level I and 
Level II to suit all systems: 

BUG-A-LUG: a mathematics game, in which you must get the 
sum correct before you can move. 

AUSTRALIAN GEOGRAPHY: learn about Australian States 
and towns, etc. 

SUBTRACTION GAME: build a tower with correct answers. 
HOW GOOD IS YOUR MATHS? Select the function (+, -, 
■f or X) and degree of difficulty. 

HANGMAN: That well known word game now on your 
computer. 
Recommended for children from 6 to 9 years. 



COSMIC FIGHTER & SPACE JUNK - L2/16K 

Cassette $10.95 Disk $15.95 

+ 60c p&p 

Both programs have sound to complement their excellent 
graphics. In COSMIC FIGHTER, you must defend the earth 
against seven different types of alien aircraft. It is unlikely that 
you will be successful but you will have a lot of fun trying! 
You mission in SPACE JUNK is to clean up all the debris left 
floating around in space by those other space games. It is not 
as simple as it sounds and space junk can be quite dangerous 
unless you are very careful. 

SPACE DRIVE L2/4K&16K 

Cassette $8.95 Disk $13.95 

+ 60c p&p 

Try to manoeuvre your space ship through the meteor storms 
then land it carefully at the space port without running out of 
fuel or crashing. Complete with realistic graphics. 

STARFIRE AND NOVA INVASION L2/16K 
Cassette $10.95 Disk $15.95 
+ 60c p&p 
Both programs include sound to improve their realism. 

STARFIRE seats you in the cockpit of an X-wing fighter as 
you engage in battle with the deadly Darth Vader's Tie-fighters. 
Beware of the evil one himself and may the Force be with you. 
In NOVA INVASION, you must protect your home planet of 
Hiberna from the invading NOVADIANS. You have two fixed 
guns at each side of the screen and a moveable one at the 
bottom. Apart from shooting down as many invaders as 
possible, you must protect your precious hoard of Vitaminium 
or perish! 

AIR ATTACK AND NAG RACE - L2/16K 

Cassette $1 0.95 Disk $1 5.95 

+ 60c p&p 

An unlikely combination of programs but they share the same 

author who has a keen sense of humour. 

AIR ATTACK includes sound and realistic graphics. The air- 
craft even have rotating propellors! But they also drop bombs 
on you, so it's kill or be killed! 

NAG RACE lets you pander to your gambling instinct without 
actually losing real money. Up to five punters can join in the 
fun. Each race results in a photo-finish whilst there is a visible 
race commentary at the bottom of the screen throughout the 
race. Happy punting! 

FOUR LETTER MASTERMIND L2/16K 

Cassette $8.95 Disk $13.95 

+ 60c p&p 

There are 550 four-letter words from which the computer can 
make its choice. You have 12 chances to enter the correct 
word. After each try, the computer informs you of the number 
of correct letters and those in the correct position. You can 
peek at the list of possible words but it will cost you points. 
Makes learning to spell fun. 

MUSIC IV -L2/16K 

Cassette $8.95 Disk $13.95 

+ 60c p&p 

Music IV is a music compiler for your '80. It allows you to 
compose or reproduce music with your computer that will 
surprise you with its range and quality. You have control over 
duration (full beat to 1/16 beat) with modifications to extend 
the duration by half or one third for triplets. Both sharps and 
flats are catered for as are rests. Notes on whole sections may 
be repeated. The program comes with sample data for a well- 
known tune to illustrate how it is done. 



***SAVE Q0$'s***SAVE 00$'s***SAVE 00$'s***MICRO-80 EXPANSION INTERFACE*** 

MICRO-80's expansion interface utilises the proven LNW Research Expansion board. It is supplied fully built up and tested in an 
attractive cabinet with a self contained power supply, ready to plug in and go. The expansion interface carries MICRO-80's full, no 
hassle, 90-day warranty. 
Features include:- © Sockets for up to 32K of memory expansion • Disk controller for up to 4 disk drives • Parallel printer port 

m Serial RS232C/20mA I/O port e Second cassette (optional) 
The expansion interface connects directly to your TRS-80 L2/16K keyboard or, via SYSPAND-80 to your SYSTEM-80VIDEO GENIE 
Prices: HD-010-A Expansion Interfaces with K : $499.00 HD-010-B Expansion Interfaces with 32K : $549.00 HD-011 Data 
separator fitted (recommended) : add $29.00 HD-012 Dual cassette Interfaces fitted : add $19.00 

The MICRO-80 Expansion Interface is also available in kit form. 
Prices: HD-013 Kit consisting of LNW Research PC board and manual, ALL components including cabinet & power supply : $375.00 
HD-01 1 Data separator for above $25.00 HD-013 Dual cassette Interface kit : $1 5.00 




A choice of upper and lower case display is easier to read, 
gives greater versatility. 

The Micro-80 lowercase modification gives you this facility, 
plus the symbols for the 4 playing-card suits for $49 00 + 
$2.00 p, & p. 

The Micro-80 modification features true below-the-line 
descenders and a block cursor. 

Each kit comes with comprehensive fitting instructions 
and two universal lower-case drive routines on cassette to 
enable you to display lower case in BASIC programs. 

The driver routines are self-relocating, self-protecting and 
will co-reside with other machine language programs such 
as Keyboard-debounce, serial interface driver programs etc. 



PIUS y£.U P ik P 

Both programs give your TRS-80 m Model I or System 80 ,m 
an optional typewriter capability, i.e. shift for upper case. 

The second programme also includes Keyboard-debounce 
and a flashing cursor. 

You fit it. Or we can. 

Fitting the modification requires soldering inside the 
computer. This should only be carried out by an experienced 
hobbyist or technician. 

If you are at all dubious, a fitting service is available in all 
capital cities for only $20.00. 

A list of installers is included with each kit. 





The Micro-80 disk drive upgrade for the TRS-8CT Model III 
contains the following high quality components: 

1 or 2 MPI 40-track single head disk drives, 1 VR Data 
double-density disk controller board and 1 dual drive power 
supply plus all the necessary mounting hardware, cablesand 
comprehensive fitting instructions, which can be carried out 
with a minimum of fuss by any average computer owner. 

Fitting service is available for $25.00 in most capital cities. 



ONLY $2049 INC. S.T. 



'ypewriter/Printer 



MICRO-80 has converted the new OLIVETTI ET-1 21 DAISY WHEEL typewriter 
to work with the TRS-80 and SYSTEM 80 or any other microcomputer 
with a Centronics parallel port (RS 232 serial interface available 
shortly). The ET-1 21 typewriter is renowned for its high quality, 
fast speed (17 c.p.s.), quietness and reliability. MICRO-80 is 
renowned for its knowledge of the TRS-80/SYSTEM 80 and its sensible 
pricing policy. Together, we have produced a dual-purpose machine:- 
an attractive, modern, correcting typewriter which doubles as a 
correspondence quality Daisy-wheel printer when used with your 
micro-computer. 

How good is it? - This part of our advertisement was typeset using 
an ET-1 21 driven by a TRS-80. Write and ask for full details. 




*** NEW IMPORTED SOFTWARE *** 
FOR TRS-80 MODELS I & III FROM THE CORNSOFT GROUP 



SCARFMAN an AMAZEing game known in the arcades as Ghostmuncher or Pacman. 
This is by far the best implementation of this thrilling arcade game 
that we have seen on the TRS-80. It comes complete with realistic 
sounds, fast action and nine levels of play. SCARFMAN will support 
the use of Alpha Products Joysticks. 



MODEL I & III TAPE $16-95 + 600 p&p 

MODEL I DISK $22-95 + 600 p&p 

MODEL III DISK $22-95 + 600 p&p 



ENHBAS $59-95 + $1-00 p&p 
MODEL I DISK OR CASSETTE, MODEL III DISK OR CASSETTE (Specify) 

Short for ENHANCED BASIC, ENHBAS adds over 30 new commands and functions 
to your BASIC interpreter. 

SORTING COMMANDS 

Sorts 1000 strings in less than 10 seconds! - without Microsoft's 
garbage collection delays. Call up to 14 keys and tags in one sort. 

BRANCHING COMMANDS 

Label BASIC lines then branch to them via the new GTO or GSUB statements. 
Makes for modular self -documenting programs. RESTORE to a data statement 
at any line number or label. POP eliminates the last return from a 
sub-routine call. WHILE-WEND allows you to produce structured programs. 

GRAPHIC/SCREEN CONTROL 

SCROLL, LEFT, INVERT, DRAW and PLOT. SCROLL, keeps the number 
of lines commanded from being rolled off the top. LEFT, moves the 
whole screen over one character to the left. INVERT, why not RESET 
all of those SET points, and SET all the RESET points in one command, 
and while it works, non-graphic blocks are uneffected. DRAW and PLOT 
makes games and graphs easier to create. DRAW uses a "shape table" 
which tells the command which direction, how far and how to draw (SET 
or RESET). DRAW allows the use of SCALE (how big) and ROT (rotate i 
the picture in 45° increments) to help animate those pictures. PLOT 
makes line and box drawing a one line command (no loops with SETs and 
RESETs). 

OTHER COMMANDS 

Single step through BASIC programs with ZSTEP! SOUND gives you a key 
click, PLAY allows you to control the pitch and length of tones generated 
by your computer through the cassette port. EXEC enables you to EXECute 
a string. EVAL evaluates a variable, directly. WPEEK and WPOKE are 
16 bit equivalents to PEEK and POKE. WINKEY$ does an INKEY$ but sits 
put until any key is pressed. A series of other commands give you 
control over line length and page length of your printer while CALL 
enables you to call machine language routines from your BASIC program. 



-,w„ 



HARD DISK - OVER 5 Megabyte STORAGE FOR YOUR MODEL III ! ! 

ONLY $2995* 

Now, for the first time in Australia, MICRO-80 is able to offer the ACT Micro-Winchester hard 
disk storage sub-system for the TRS-80 Model III microcomputer. The ACT is a completely self- 
contained unit in a small attractive cabinet. It includes a 5Hbyte 5% inch Winchester technology, 
hard disk drive, an ACT controller card with HOP high integrity data separator, power supply, 
a Model III interface card and cable and CP/M 2.2 (org 4200 or org 0) disk operating system. 
In short, it is a complete, stand-alone unit which simply plugs on to the 50 way expansion 
bus on your Model III. There are absolutely no modifications made to your computer and the 
Tandy warranty is not effected in any way. The minimum system requirements are a 48K single 
disk drive TRS-80 Model III microcomputer. ACT offers the following unique advantages: 

ultra fast disk access time (5 million bits per second burst speed) 

ultra high reliability writing and reading of data 

enormous storage capacity (equivalent to almost 28 standard floppy disk drives) 

access to the very wide range of high quality CP/M applications software (standard Model 
III requires org 4200 Hex programs) 

quiet, reliable operation 

local service and design backup. ACT started in the U.S.A. but is now an Australian owned 
company based in Sydney. 

Coming soon, D0SPLUS 4.0 for your ACT Micro-Winchester. 

Now your TRS-80 Model III can be a serious business computer at a fraction of the cost of other 
brands with similar specifications. 

Want an ACT Micro-Winchester on your disk-based Model I or System 80? It could be done but 
we need to gauge the interest. Write to us to let us know that you would be seriously interested. 

Price is F.O.B. Adelaide. Add $15 road freight anywhere in Australia. 



THIS MONTH'S SPECIALS 



ET121 TYPEWRITER/ PRINTERS ONLY $1500* 



Electronics are great, prices keep coming down, not going up. The regular price for our ET121 
Electronic Daisywheel typewriter/printer is do wn to $1 750. But we are overstocked so for a 
short time we are reducing the price to only EMMS,-' This is for the standard ET121 with 
the MICRO-80 parallel interface. The ET121 is a heavy duty, full-sized (15» carriage) electronic 
typewriter. With an interface it operates as a correspondence quality printer driven by your 
coaputer. If you have been contemplating purchasing one of these machines, now is the tine 
to act, you will not find better value for money anywhere. 

* Price is F.O.B. Adelaide, add $20 road freight anywhere in Australia. Cable from TRS-80/SYSTEM 
80 printer port to printer $39-00. The typewriter/printer requires the use of an expansion 
interface, Syspand 80 (on the Systen 80) or Tandy printer cable. 

MICROPOLIS 77 TRACK DISK DRIVE ONLY $499 * 

One only left in stock. Normally sells at $649-00, this a brand new 77 track MICROPOLIS disk 
drive complete with cabinet and power supply. We are rationalizing our product lines and will 
no longer stock these units. (Full service and spares will continue to be available), 

* Price is F.O.B. Adelaide, add $10 road freight anywhere in Australia. 



DOSPLUS - THE NO-FUSS POWERFUL DISK OPERATING SYSTEM FOR MODEL I OR III 

Until DOSPLUS cane along you had only two choices. Use TRSDOS which was slow, full of bugs 
but very widely used, or use NEMDOS 80 which was powerful, fast, had a few bugs, but these 
were corrected periodically by user-installed zaps but was intended as an experienced programmers 
DOS and took a lot of study and understanding. If you wanted to take advantage of advancing 
technology in disk drives, then you had no choice - NEWDOS 80 was the only serious DOS to support 
dual-head or 80 track disk drives* Make no mistake, NEWDOS 80 is a great DOS but it does take 
quite a bit of driving and in the Model III in particular, is almost incompatible with TRSDOS. 

Then came DOSPLUS 3.3. MICRO-SYSTEMS SOFTWARE, the authors, offered a $100 reward for each 
genuine bug reported in DOSPLUS 3.3. Over a period of 12 months, they paid out only 5 tines! 
DOSPLUS 3.3 is still current and is an excellent Operating System for those who want a straight- 
forward, fuss-free DOS using single head disk drives of any track count. There is a high degree 
of compatibility with TRSDOS. 80 MICROCOMPUTING reports that DOSPLUS 3.3 Double Density is 
the only serious Double Density Operating System for the Model I. 

Now we also have DOSPLUS 3.4. DOSPLUS 3.4 supports dual head disk drives of any track count 
or stepping speed. It also supports 8" disk drives (with suitable hardware). The following 
are just a few of the many features available: 



- BASIC array sort - multi key, multi array 

- Input @ (controlled screen input) 

- BASIC checks for active "DO" 

- Much improved Backup (more reliable) 

- Repeat last DOS command with "/" ENTER 

- Short directory of Model 3 TRSDOS disks 

- COMPLETE device routing supported (DOS and 
BASIC) 

- Includes the new DOSPLUS Z80 disk BASIC 
version 1.6 

- RESTORE dead files 

- CLEARFILE (destroys data by writing zeros 
to file) 

- SPOOLER (allows printing of text while 
freeing up the CPU) 



- Tape/Disk - Disk/Tape utility (with relocator) 

- Random access and ASCII modification on Diskdump 

- Backup and Format from a "DO" file 

- I/O package much faster (disk access time 
reduced) 

- Short directory (file name and extension) 
available 

- Single file convert from Model 3 TRSDOS 

- Ability to save BASIC programs directly to 
another machines' memory (if equipped with 
DOSPLUS 3.4) 

- Single drive copy utility 



- PURGE (unwanted files) 

- TRANSFER (moves all user files from one disk 
to another) 

- CRUNCH (BASIC program compressor) 



And all this in a simple, easy-to-use package supported by a 200 plus page User's Guide. We 
have ALL versions of DOSPLUS in stock now! Specify the version you require and whether you 
need it on a 35, 40 or 80 track disk. 



DOSPLUS 3.3 $99-95 incl. p&p 

Specify: - MODEL 1 - SINGLE DENSITY 

- MODEL 1 - DOUBLE DENSITY 

- MODEL 3 



DOSPLUS 3.4 $149-95 incl. p&p 

Specify: - MODEL 1 - SINGLE DENSITY 

- MODEL 1 - DOUBLE DENSITY 

- MODEL 3 



:+: * 

•PRINTER PRICE BREAKTHROUGH!!* 

:+: * 

* STAR D0T MATRIX PRINTER ONLY +$625 * 

************************* 



*********************************** 



The STAR dot Matrix Printer has the following features. 

- SO character per second print speed 

- bi-directional Printing 

- Logical seeking of shortest Print path 

- Three Print widths^ 

Standard SO characters per line 
Compressed 132 characters per line 
Expanded 40 characters per line 

- Friction AND Tractor -feed included 

- Adjustable P&per width from 4-9 inches 
~ 9 wire Print head 

- 9 x 7 high quality character formation 
~ Lower case 

~ Block graphics 

3 line spacings - software selectable 

~ S;?* r ? ni **x Pa Tf^ Bl P ° rt? (RS232 serial optional) 

- belf test facility 

TRS-BO?"" " aS ty ° eSet U5in9 the Star winter driven by a Model III 
AustralL/ 5 F " " B ' Adelaide add * 15 -°° road freight anywhere in 

Cable from TRS-BO/System 80 printer port to printer *39 00 (The 
printer requires the use of an expansion interface! SYSPAND 80 Ion 
the System So) or printer cable. " u Bu (on 
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MICRO-80's 

MOE EL 380 + 

M ICRO-80 has equipped the TRS-80 with two high reliability dual-head 80 track mini- 
floppy disk drives made by MPI, one of America's leading mini-disk drive manufacturers. 

This turns the mild-mannered Model 3 into a powerhouse able to handle the most dif- 
ficult business programs. The TRS-80 is one of the best-supported microcomputers in the 
world. MICRO-80 has been supporting the TRS-80 in Australia for 18 months and is one 
of Australia's leading dealers in MPI disk drives. 

2LS ME©AB¥T1S FOR $ 53§§ smcl saim Tn 

If you need even more file space you can add MICRO-80's external dual-drive cabinet 
enclosing two more dual-head 80 track drives for an additional $ 1500. 



COMPUTER PRICES 



MODEL 34® 

2 40 TRACK SINGLE HEAD DRIVES GIVING 

350K FORMATTED STORAGE, 48K RAM 

MODEL 34® + 

2 40 TRACK DUAL-HEAD DRIVES GIVING 

700K FORMATTED STORAGE, 48K RAM 

MODEL 38© 

2 80 TRACK SINGLE HEAD DRIVES GIVING 

700K FORMATTED STORAGE, 48K RAM 

MODEL 38© + 

2 80 TRACK DUAL-HEAD DRIVES GIVING 

1.4 MEGABYTE FORMATTED STORAGE, 48K RAM 



$ 2990 



$ 3350 



$ 3350 



$ 3800 



INCL. SALES TAX 



INCL. SALES TAX 



INCL. SALES TAX 



INCL. SALES TAX 



35©K SYSTEM 

MODEL 340, EPSON MX-80 PRINTER 

NEWDOS 80 DISK OPERATING SYSTEM 

700K SYSTEM (4© Track) 

MODEL 340 +-, EPSON MX-80 PRINTER 

NEWDOS 80 DISK OPERATING SYSTEM 

7§©K SYSTEM (8© Track) 
MODEL 380, EPSON MX-80 PRINTER 
NEWDOS 80 DISK OPERATING SYSTEM 

1.4 MEGABYTE SYSTEM 

MODEL 380 + , EPSON MX-80 PRINTER 

NEWDOS 80 OPERATING SYSTEM 

2.8 MEGABYTE SYSTEM 

MODEL 380 + , DUAL EXTERNAL DRIVES, 

MX-80 PRINTER, NEWDOS 80 OPERATING SYSTEM 



4070 INCL.SALESTAX 



4429 INCL.SALESTAX 



4429 INCL.SALESTAX 



s 4880 



$ 6380 



INCL.SALESTAX 



INCL.SALESTAX 



>Y — $372,50 md. p&p 



All Exatron Stringy Floppies sold by MICRO-80 include the special chained version of 
HOUSEHOLD ACCOUNTS, developed by Charlie Bartlett. When used on the ESF, this pro- 
gram is powerful enough to perform many of the accounting functions in a small 
business. Remember, the ESF comes complete with a comprehensive manual, a 2 way 
bus-extender cable, its own power supply and 10 wafers of mixed length. One wafer 
contains the Data Input/Output program and another the HOUSEHOLD ACCOUNTS 
program. 

CAN'T SVIAICE UP YOUR MIND ABOUT THE ESF? 

Then send in $5.00 for a copy of the manual. We will refund your $5.00 IN FULL when you 
purchase an ESF. 



All prices subject to change without notice. Prices are FO.B. Adelaide. All computers and systems carry MICRO-80's 

90-day Warranty covering parts and labour. 
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MORS 



ur software is suitable for either the SYSTEM 80 or the TRS-80 



MEW SOFTWARE FROM MICRO-80 PRODUCTS 
BUSINESS PROGRAMS 

MICROMANAGEMENT 
STOCK RECORDING SYSTEM (L2/16K) 

Cassette version. $29.95 + $1.00 p&p 

Stringy Floppy version $33.90 + $1.00 p&p 

This system has been in use for 9 months in a number 
of small retail businesses in Adelaide.' It is therefore 
thoroughly debugged and has been tailor made to suit 
the requirements of a small business. MICROMANAGE- 
MENT SRC enables you to monitor the current stock 
level and reorder levels of 500 different stock items per 
tape or wafer. It includes the following features: — 

— Add new items to inventory 

— Delete discontinued items from inventory 

— List complete file 

— Search for any stock number 

— Save data to cassette or wafer 

— Load data from cassette or wafer 

— Adjusts stock levels from sales results and receipt 
of goods 

— List all items requiring reordering 

We can thoroughly recommend this program for the 
small business with a L2/16K computer. 



SCOTCH BRAND COMPUTING CASSETTES 
Super-quality personal computing cassettes. 

C-10packof10 $26.00 incl. p&p 

C-30packof10 $28.00 incl. p&p 



UTILITIES 

S-KE Y by Edwin Paay $1 5.95 plus 50c. p&p 

S-KEY is a complete keyboard driver routine for the 
TRS-80 and becomes part of the Level II basic inter- 
preter. With S-KEY loaded the user will have many 
new features not available with the standard machine. 
S-KEY features: 

* S-KEY provides an auto-repeat for all the keys on 
the keyboard. If any key is held down longer than 
about half a second, the key will repeat until it is 
released. 

* Graphic symbols can be typed direct from the key- 
board, this includes all 64 graphic symbols available 
from the TRS-80/SYSTEM 80. 

* S-KEY allows text, BASIC commands and/or 
graphics to be defined to shifted keys. This makes 
programming much easier as whole commands and 
statements can be recalled by typing shift and a 
letter key. 

* Because S-KEY allows graphics to be typed directly 
from the keyboard, animation and fast graphics are 
easily implemented by typing the appropriate 
graphics symbols directly into PRINT statements. 

* S-KEY allows the user to LIST a program with 
PRINT statements containing graphics, properly. 
S-KEY does this by intercepting the LIST routine 
when necessary. 

* S-KEY allows the user to list an updated list of the 
shift key entries to the video display or line printer. 

* S-KEY can be disabled and enabled when required. 
This allows other routines which take control of the 
keyboard to run with S-KEY as well. 

Each cassette has TRS-80, DISK and SYSTEM 80 
versions and comes with comprehensive documentation. 



B1V10N by Edwin Paay $19.95 plus 50c. p&p 

THE ULTIMATE HIGH MEMORY BASIC MONITOR 
L2/16-48K 

Our own personnel refuse to write BASIC without first 
loading this amazing machine language utility program 
into high memory! BMON Renumbers; Displays BASIC 
programs on the screen while they are still loading; tells 
you the memory locations of the program just loaded; 
lets you stop a load part-way through; merges two 
programs, with automatic renumbering of the second 
so as to prevent any clashes of line numbers; recovers 
your program even though you did type NEW: makes 
one program invisible while you work on a second 
(saves hours of cassette time!); lists all the variables 
used in the program; makes SYSTEM tapes; lets you 
Edit memory directly . . . the list goes on and on. 
Cassette comes with 16K, 32K and 48K versions, ready 
to load. Can anyone afford NOT to have BMON? 



EDUCATIONAL 

RPN CALCULATOR (L2/16K & 32K) 
$14.95 $ 50c. p&p 

Give your computer the power of a $650 reverse polish 
notation calculator with 45 functions and selectable 
accuracy of 8 or 16 digits. The main stack and registers 
are continuously displayed whilst the menu is always 
instantly accessible without disturbing any calculations 
or register values. The cassette comes with both the 
16K and 32K versions, the latter giving you the addi- 
tional power of a programmable calculator. Comes 
with a very comprehensive 15 page manual, which 
includes instructions to load and modify the 32K pro- 
grammable version to run in 16K. Whether for business 
or pleasure, this package will prove invaluable, and turn 
you '80 into a very powerful instrument. 



GAMES 

MICR0P0LY(L2/16K) $8.95 + 60c p&p 

Now you can play Monopoly on your micro. The old 
favourite board game has moved into the electronic era. 
This computer version displays the board on the screen, 
obeys all the rules and, best of all, the banker does not 
make mistakes with your change! 

CONCENTRATION (L2/16K) $8.95 + 60c p&p 

Another application of supergraphics. There are 28 
"cards" displayed on the screen, face down. Players 
take it in turn to turn them over with the object of 
finding matching pairs. There are 40 different patterns 
which are chosen at random, so the game is full of end- 
less variety. This is of particular value in helping young 
children to learn the art of concentrating and, at the 
same time, to introduce them to the computer. 

METEOR AND TORPEDO ALLEY (L2/16K) 
$10.95 + 60c p&p 

Those who frequent games arcades will recognize these 
two electronic games. In METEOR you must destroy 
the enemy space ships before they see you. In its most 
difficult mode, the odds are a thumping 238 to 1 
against you being successful. In torpedo alley you must 
sink the enemy ships without hitting your own supply 
ship. Both games include sound effects and are remark- 
ably accurate reproductions of the arcade games. 
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AUSTRALIAN SOFTWARE (Cont.) 

GAMES 

SHEEPDOG (L2/16K) $8.95 + 60cp&p 

Ever wondered how a sheepdog manages to drive all 
those awkward sheep into a pen? Well, here is your 
chance to find out just how difficult it is and have a 
lot of fun at the same time. You control the sheepdog, 
the computer controls the sheep! As if that isn't 
enough, look out for the dingoes lurking in the bush! 

U BOAT $8.95 + 60c p&p 

Real time simulation at its best! Comes with working 
sonar-screen and periscope, a full rack of torpedoes, 
plenty of targets, working fuel and battery meters, 
helpful Mothership for high-seas reprovisioning and 
even has emergency radio for that terrible moment 
when the depth charges put your crew at risk. Requires 
Level II/16K. 

SPACE IN VADERS WITH SOUND $8.95 + 60c p&p 

Much improved version of this arcade favourite with 
redesigned laser and cannon blasts, high-speed cannon, 
50 roving drone targets, 10 motherships and heaps of 
fun for all. Level II with 4K and 16K versions on this 
cassette. 

G0LF(L2/16K) $8.95 + 60c p&p 

Pit your skills of mini-golf against the computer. Choose 
the level of difficulty, the number of holes and whether 
you want to play straight mini golf or crazy golf. Com- 
plete with hazards, water traps, bunkers and trees. 
Great fun for kids of all ages. 

DOMINOES(L2/16K) $8.95 + 60c p&p 

Pit your skill at dominoes against the computer, which 
provides a tireless opponent. Another application of 
supergraphics from the stable of Charlie Bartlett. 
Dominoes are shown approximately life size in full 
detail (except for colour!). The monitor screen is a 
window which you can move from one end of the 
string of dominoes to the other. Best of all, you don't 
lose any pieces between games! 

KID'S STUFF (formerly MMM-1) $8.95 + 60c p&p 

Three games on one cassette from that master of TRS- 
80 graphics, Charlie Bartlett. Includes INDY 500, an 
exciting road race that gets faster and faster the longer 
you play, SUBHUNT in which your warship blows up 
unfortunate little submarines all over the place, and 
KNIEVEL (as in motorcycle, ramp and buses). 



OTHER PROGRAMS 

INFINITE BASIC BY RACET (32K/1 DISK) 
$49.95 + 50c. p&p 

Full matrix functions — 30 BASIC commands; 50 more 
STRING functions as BASIC commands. 

GSF/L2/48K $24.95 + 50c. p&p 

18 machine language routines including RACET sorts. 

BUSINESS ADDRESS AND INFORMATION SYSTEM 
(48K/DSSK) ^4.95 + 50c. p&p 

Allows you to store addresses and information about 
businesses, edit them and print them out. 

HISPED(L216,32or48K)^9.95 
This machine language program allows you to SAVE 
and LOAD programs and data to tape at speeds up to 
2000 band (4 times normal) using a standard cassette 
recorder. A switch must be installed to remove the 
XRX III loading board, if fitted. 



LOWER CASE FOR YOUR TRS-80/SYSTEM 80 
Kit only $49.00 plus $2.00 p&p 

Give your TRS-80 or SYSTEM 80 a lower case display 
with proper descenders and a block cursor (similar to 
the TRS-80 Model III). Also includes symbols for the 
four suits of cards. Includes full fitting instructions, all 
necessary components and a special machine language 
driver program to enable lower case in BASIC. The 
modification is similar to the Tandy model and does 
not work with Electric Pencil without further modifi- 
cations. 

These kits require disassembly of your computer and 
some soldering. They should only be installed by 
someone who has experience in soldering integrated 
circuits, using a low power, properly earthed soldering 
iron. If you do not have the necessary experience/ 
equipment, we will install the modification for you for 
$20 plus freight in both directions. Make sure you 
arrange the installation with us first, before despatch- 
ing your computer, so that we can assure you of a 
rapid turn-around. We are also arranging to have 
installers in each State. See elsewhere in this issue for 
their names and addresses. 

PRICES 
Cat No. 
HD-020 Lower case mod kit for TRS-80 

$49.00 plus $2.00 p&p 
HD-021 Lower case mod kit for SYSTEM-80 

$49.00 plus $2.00 p&p 



EPSON MX-80 PRINTER 

ONLY *$949 Inc. Cable for TRS-80 and p&p 

(*Printer only - $940 incl. p&p) 

The EPSON MX-80 printer is compact, quiet, has 
features unheard of only 2-3 years ago in a printer at 
any price and, above all, is ultra-reliable. All available 
print modes may be selected under software control. 
Features include: 

— high quality 9x9 dot-matrix character formation 

— 3 character densities 

. 80 characters per line at 10 chars/inch 
.132 characters per line at 16.5 chars/inch 
. 40 characters per line at 5 chars/inch 

— 2 line spacings 

. 6 lines per inch 8 lines per inch 

— 80 characters per second print speed 

— bi-directional printing 

— logical seeking of shortest path for printing 

— lower case with descenders 

— TRS-80 graphics characters built in 

— standard Centronics printer port 

The bi-directional printing coupled with the logical 
seeking of the shortest print path (which means that 
the print head will commence printing the next line 
from the end which requires the least travel, thereby 
minimising unutilised time) gives this printer a much 
higher throughput rate than many other printers 
quoting print speeds of 120 c.p.s. or even higher. 



GREEN SCREEN SIMULATOR 
$9.50 incl. p&p 

The GREEN SCREEN SIMULATOR is made from a 
deep green perspex, cut to fit your monitor. It improves 
contrast and is much more restful to the eyes than the 
normal grey and white image. 

All editorial staff of MICRO-80 are now using GREEN 
SCREEN SIMULATORS on their own monitors. 

Please make sure to specify whether you have an old 
(squarish) or new (rounded) style monitor when order- 
ing. Not available for Dick Smith monitors. 
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1 860 K=K- 1 s M=M- 1 s P= 1 76 s Q= 1 3 1 : BOSUB 1 790 s K=K+63 : M=M-65 s P= 1 3 1 s Q= 1 76 

s GOSUB 1 790 s K=K- 1 s M=M- 1 s P= 1 40 s Q=P s GOSUB 1 790 

1870 K=K-1 : M=M-1 s P=176s Q=I31 s G0SUB1790 

1 880 K=K+63 s M=M-65 s P= 1 3 1 s Q= 1 76 s GOSUB 1 790 

1 890 K=K- 1 : M=M- 1 s P= 1 40 s Q=P s GOSUB 1 790 

1900 K=K-1 s M=M-1 s P=176: 0=131 s G0SUB1790 

1910 GOTO 1960 

1920 FOR I =299 TO 306 

1 930 POKEW+ 1,131 

1 940 POKEW+ I +5 1 2 , 1 76 

1950 NEXT I 

1960 FOR I =272 TO 784 STEP 64 

1970 POKE W+I, 191 

1980 POKEW+I +26, 191 

1990 NEXTI 

2000 IF E=0 RETURN 

2010 FOR 1=273 TO 297 

2020 POKEW+1,131 

2030 POKEW+I +51 2, 176 

2040 NEXTI 

2050 RETURN 

2060 REM DEPTH 3 

2070 IFC=OTHEN 2120 

2080 K=273 ; M=785 s P= 1 40 s Q=P : GOSUB 1 790 s K=K+ 1 s M=M+ 1 s P= 1 76 s Q= 1 3 1 : GOS 

UB 1790 

2090 K=K+65 s M=M-63 s P= 1 3 1 s Q= 1 76 s GOSUB 1 790 : K=K+ 1 s M=M+ 1 : P= 1 40 s Q= 1 40 

; GOSUB 1790 

2100 K=K+1 s M=M+1 s P=176s Q=131 s G0SUB1790 

2110 GOTO 2160 

2120 FOR I =401 TO 405 

2130 POKEW+I, 131 

2140 POKEW+I +256, 176 

2150 NEXTI 

2160 IFD=OTHEN 2220 

2170 K=297 s M=809 s P= 1 40 s Q= 1 40 s GOSUB 1 790 

2180 K=K-1 s M=M-1 s P=176s Q=131 s G0SUB1790 

2190 K=K+63 s M=M-65 s P= 1 3 1 s Q= 1 76 s GOSUB 1 790 

2200 K=K-1 s M=M-1 s P=140; Q=140s G0SUB1790: K=K-1 : M=M-1 : P=176: Q=131 s G 

0SUB1790 

2210 GOTO 2260 

2220 F0RI=421T0425 

2230 POKEW+1,131 

2240 POKEVV+I+256, 176 

2250 NEXTI 

2260 FOR I =406 TO 666 STEP 64 

2270 POKEVV+1,191 

2280 POKEW+I + 14,191 

2290 NEXTI 

2300 IF E=0 RETURN 

2310 FOR I =407 T0419 

2320 POKEW+1,131 

2330 POKEW+I +256, 176 

2340 NEXTI 

2350 RETURN 

2360 REM DEPTH 4 

2370 IF C=0 THEN 2410 

2380 K=407 : M=663 s P= 1 40 s Q= 1 40 s GOSUB 1 790 s K=K+ 1 s M=M+ 1 : P= 1 76 : Q= 1 3 1 s G 

0SUB1790 

2390 K=K+65 ; M=M-63 s P= 1 3 1 : Q= 1 76 s GOSUB 1 790 

2400 GOTO 2430 

24 1 K=47 1 : M=599 s P= 1 40 s Q= 1 40 s GOSUB 1 790 : K=K+ 1 s M=M+ 1 : GOSUB 1 790 

2420 K=K+lsM=M+ Is GOSUB 1790 

2430 IFD=OTHEN 2470 

2440 K=419sM=675sP=140:Q=140sG0SUB1790:K=K-l:M=M-lsP=176:Q=131s6 

0SUB1790 

2450 K=K+63 s M=M-65 s P= 1 3 1 s 0= 1 76 : GOSUB 1 790 

2460 GOTO 2490 

2470 K=48 1 ; M=609 : P= 1 40 s Q= 1 40 s GOSUB 1 790 s K=K+ 1 s M=M+ 1 s GOSUB 1 790 

2480 K=K+ 1 s M=M+ 1 s GOSUB 1 790 

2490 K=474 : M=480 s P= 1 88 : Q= 1 88 : GOSUB 1 790 

2500 K=K+64 : M=M+64 s P= 1 9 1 : Q= 1 9 1 s GOSUB 1 790 

2510 K=K+64 s M=M+64 : P= 1 43 sQ= 143s GOSUB 1790 

2520 IF E=0 RETURN 

2530 F0RI=475T0479 

2540 POKEW+I, 140 

2550 POKEW+I + 128,140 

2560 NEXTI 
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2570 RETURN 
2580 REM DEPTH 5 
2590 IFC=0B0T0 2630 
2600 POKE VV+475, 176 
2610 POKEW+603, 131 
2620 GOTO 2640 
. 2630 POKEW+539, 179 
2640 IFD=0 GOTO 2680 
2650 POKEVV+479, 176 
2660 POKEVV+607, 131 
2670 GOTO 2690 
2680 POKE VV+543, 179 
2690 POKE VV+540, 191 
2700 POKEVV+542, 191 
2710 IF E=0 RETURN 
2720 POKE W+54 1,179 
2730 RETURN 

2740 PRINT3468, "WAY OUT"; 
2750 END 

2760 REM INSTRUCTIONS AND TITLE 
2770 PRINT5J980, "* ttttttttt" 
2780 PRINT3980, " THE MAZE" 
2790 PRINT3980, "* ttttttttt" 
2800 PR I NT: RETURN 

2810 PR I NT "YOU WILL BE PLACED AT A POINT IN A TEN BY TEN CELL MA 
ZE AND HAVETO FIND THE WAY OUT. YOUR SCORE WILL BE CALCULATED ON 
THE NUMBER OF LOOKS AND MOVES YOU MAKE. " 

2820 PR I NT "YOU CAN ASK FOR A PLAN AT ANY TIME IF YOU GET STUCK B 
UT THIS WILL REDUCE YOUR SCORE CONSIDERABLY." 

2830 PRINTS PR I NT "YOU CAN TURN LEFT BY PRESSING ' L,' 

AND RIGHT BY PRESSING ' R' " 
2840 PR I NT "YOU MOVE FOREWORD BY PRESSSING 'F'" 
2850 PR I NT "GET HELP BY PRESSING *H* - < REDUCES SCORE !!)" 
2860 PRINT; PRINT" MAKING MAZE - PLEASE WAIT A MOMENT"! RET 
URN ^^ 

***** BASIC + LABELS LII/48K . - by R.T. Worley ***** 

Those of us who program in BASIC probably believe that it is very tedious to program in machine 
language, and so it would be, if programmers 1 aids such as editor/assemblers had not been developed. 
Such aids are now so advanced that they provide features superior to those available to BASIC 
programmers. One of the most useful features of an editor/assembler is the ability to attach 
LABELS to routines and jump to those LABELS from other parts of the program. The concept is 
somewhat like GOTO in BASIC with one major and significant difference. Whereas with GOTO it 
is necessary to nominate the BASIC line number to which you wish program flow to pass, this 
is not the case with an editor/assembler. The LABEL itself uniquely identifies the routine 
and the Assembler places the corresponding code in the appropriate place in memory and then 
automatically sets correct Jump addresses throughout the program. This makes for structured 
programs which do not jump about all over the place and, if meaningful Labels are used, the 
source code is largely self -documenting. 

BASIC + LABELS now offers the BASIC programmer a similar facility - with this 1.8K machine language 
program loaded in high memory, you may assign Labels to sections of your BASIC program. The 
ml. program will then "compile" your program into BASIC code which can be RUN by the standard 
BASIC interpreter. The version produced here is for a 48K machine and resides from F720H (63264) 
to FE42H (65090). If you enter the source code into an Editor/Assembler you may alter the program 
for different memory sizes by changing line 50. Use BASEPR EQU 0B700H for a 32K machine and 
BASEPR EQU 7700H for a 16K machine. The object code supplied on the monthly cassette is for 
16K machines, whilst that on disk is for 48K machines. 

BASIC + LABELS now offers the BASIC programmer a similar facility - with this 1.8K machine language 
program loaded in high memory, you may assign Labels to sections of your BASIC program. The 
ml. program will then "compile" your program into BASIC code which can be RUN by the standard 
BASIC interpreter. The hex listing produced here is for a 16K machine and resides from 7720H 
to 7F40H. Unfortunately, the well commented source code is too long to reproduce in the magazine 
but is provided on the monthly cassette and disk. The cassette also contains the 16K object 
code whilst the disk contains the 48K object code. Any reader who requires a hard copy listing 
of the source code may obtain a photo copy by sending $5-00 to MICRO-80, P.O. BOX 213, GOODWOOD, 
S.A. 5034. The line number references in the following text refer to the source code. The 
program may be assembled for different memory sizes by changing line 50. Use BASEPR EQU 0B700H 
for a 32K machine and BASEPR EQU 7700H for a 16K machine. 

USING BASIC + LABELS. 

There are three main functions available to the user: 

- Renumbering 

- Deleting REM lines 

- Label handling. 
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1. Renumbering. 

The renumber command resequences the entire BASIC program in memory using any specified starting 
number and any specified step (1-255). 

All lines with first character REM (as a token) will be given numbers, either: 

(i) a multiple of 10 times the step, or 

(ii) such that the next line will be a multiple of 10 times the step. 

Either option may be chosen. The second option is so that sections of program will stand out 
(because of their line numbers) even when REM lines are deleted. Please note that the use of 
' in place of REM does not produce a line with first character REM (in fact, it is coded as 
: followed by REM followed by ' and so wastes memory!) 

Line numbers following THEN, ELSE, RESUME, (0N..JG0T0, and (0N...)G0SUB are updated during 
resequencing. 

2. Deleting REM lines. 

This deletes all REM lines, i.e. all lines which have first character REM (as a token). The 
note in paragraph 2 above applies. 

3. Label handling. 

As well as resequencing as described in section 1, this replaces label in branch statements 
by the corresponding line number, and moves blocks of program about as specified by labels. 

A branch label heading consists of \*labelV where "label" may be any alphanumeric characters. 
Blanks in labels are ignored. The following illustrates the use of labels in branch statements. 

100 60T0 <*FRED*> 100 GOTO 260 

250 <*FRED#> 250 REM*FRED#> 

260 s 260 s 

Note that the branch is to the line after the heading label, that the heading label has been 
turned into a REM line that may be deleted, and that comments may follow a heading label (line 
250) since the rest of the line is ignored. A label reference (as in line 100) may be used 
in place of a line number after THEN, ELSE, GOTO, GOSUB, and RESUME. The use of ON var GOTO 
<*labell*^ , "^labe^*} etc. is allowed. There is a limit on the number of label headings that 
can be used. This is 98 and is determined by the size of a table (lines 8085 and 9190). 

A program block move requires three labels - 

(i) a label heading <*label^ marking the start of the block to be moved; 
(ii) an end label <*ENDlabel*> marking the end of the block to be moved; and 

(iii) an insertion label <*LOClabel*> marking the point in the program for insertion of the 
block. 

The following example illustrates the use. 
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Of course, the line numbers will be altered to correct sequence numbers. Note that the lines 
160 and 260 are deleted, and that line 100 has been turned into a REM line. Also note that 
anything following the label in line 100 will be ignored. 

Since programs making frequent calls to subroutines work fastest when the subroutine is located 
as near the beginning of the program as possible (or, in the case of the TRS-80, when they closely 
follow the point from whence they are called), a special block move instruction is available. 
If the block header label is of the form <,*GOSUBlabel*> and the end of block marker is, corres- 
pondingly, ^*ENDGOSUBlabel*> then the block is moved to the beginning of the program. 
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To preserve program flow in case a <*GOSUBlabel*>is used, an initial line is added to the program 

at the front. The following illustrates the use of <*GOSUBlabel* ? > . Note in particular how 
the new line 1 ensures correct program flow. 
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OPERATION OF THE PROGRAM. 

As indicated by line 9360, (which instructs the assembler to produce an autostart for the system 
tape), the program entry point is BEGINT i.e. line 8080. Thus to call the program from BASIC 
you must type SYSTEM ENTER and respond to the system prompt by / ENTER . If you wish you 
can add (before line 9360), 

ORG 41A4H 
DEFW BEGINT 

and then the command LINE will automatically enter LABELS. However, with a disk system and 
a good DOS, the statement 

CMD H LABELS 

will work. With standard DOS it may be necessary to have loaded LABELS earlier and enter LABELS 
via DEBUG and the G command (having noted the address of BEGINT when assembling. 

Lines 8080-8310 do some initialisation, display the menu, and branch to the selected routine 
(renumber, delete REM line, or full label handler). 

The renumberer is the first routine, starting at line 480 (it is preceded by some initialisation). 
The renumberer scans the program three times. The first time through it checks out all line 
number references and warns of all missing lines (too many and they scroll off the screen!) 
and tests if the proposed numbering will work. The second time through it replaces the old 
line numbers by the new ones, and replaces the link pointers (the start of a program line consists 
of a link pointer followed by the line number, when the line has been put into memory). The 
third time through the line numbers after GOTO etc. are updated by evaluating the old number, 
scanning the link pointers (which have been replaced by the old numbers) till the right line 
has been found, getting the new number of the line, and replacing the old number after the GOTO 
by the new number. This is slow, but saves building a table (and besides, machine language 
is so fast anyway that I don't worry about the difference between 1 and 20 seconds). Finally, 
the ROM routine that resets the link pointers is called and the program returns to the menu. 

In the first and third scans of the BASIC program the same branching routine 670-890 is used, 
the jump addresses being altered as necessary for each pass. The branching routine is entered 
with a character from the BASIC program. The character is tested, and unless it needs special 
handling the branching routine is re-entered with the next character of the BASIC program. 

The label handler first calls the renumberer with step 1 and first line number 2 (leaving room 
to insert the line 1 GOTO 2). On return to STRST2 ("structure, stage 2") some jump addresses 
in the branching routine are changed and the program scanned for reference labels after GOTO 
etc. These are replaced by the correct numbers and the line number in saved in a table for 
later "REM"ing. On return to STRST3 a similar scan is started to handle (*LOClabelv instructions. 
This returns to STRST4 which handles the <*G0SUBlabel*> instructions. STRST5 deletes REMREM 
lines (which are the remains of the <*L0C and <*GOSUB lines). STRST6 inserts the line 1 GOTO 
2, STRST7 calls the ROM link pointer resetting routine and STRST7 calls the renumberer with 
the wanted step and start. 

Note that there is quite a number of ROM calls. Since ROMs vary slightly, there may be trouble 
with using them in other machines. However, I believe the calls used work in most (and probably 
work in all) TRS-80 MODEL I ROMs. If any trouble occurs, I will give MICRO-80 the relevant 
code. 
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***** POLYNOMIAL REGRESSION ANALYSIS L2/16K - by J.R. Jones ***** 

Polynomial Regression analysis is used to test data for a non-linear or curvilinear relationship 
between the dependent variable (Y) and the independent variable (X), according to the model 
Y=A+BX+CXm-DX^+ ETC. This routine allows polynomial regression analysis to the models : 

Y = A + BX 

Y = A + BX + CX 2 

Y = A + BX + CX 2 + DX 3 

on up to 100 data pairs, which are verified and can be edited following entry. The routine 
calculates coefficients for selected polynomial models, the mean values of X and Y and R 2 (an 
indication of closeness of fit, where 1 is perfect). The routine will also print residual tables 
on command and compute values of Y for entered values of X. 



10 'ROUTINE FOR POLYNOMIAL REGRESSION ANALYSIS 

20 '(C) COPYRIGHT 1980 

30 'T.R.JONES, 

40 '43 HASTIE ST., 

50 'TATURA, 3616. 

60 CLS:DEFINTI-N:DIMX(100) ,Y(100) ,0(5,5) ,R(5) ,S(5) s 

P*= " ######### . #### " s D* ( 1 ) = " 1 ST DEGREE " s D* ( 2 ) = " 2ND DEGREE " s 
D*(3)="3RD DEGREE" 
70 G0SUB80:G0T0110 
80 CLS ; PR I NTT AB ( 17) "POLYNOMIAL REGRESSION ANALYSIS"! 

PRINTTAB (17) STRING* (30, 45) s NT=0 
90 PR I NT s PR I NT : PR I NT : PR I NTTAB ( 23 ) " POL YNOM I AL MODELS " s PR I NT 
100 PRINTTAB(10)D*(1);" s Y = A + BX (l)"s 

PRINTTAB ( 10) D* (2) ;" ; Y = A + BX + CXC2 (2)"s 

PRINTTAB ( 10) D* (3) s " s Y = A + BX + CXC2 + DXC3 (3)": 

RETURN 
110 PRINT3977, "TYPE < ENTER > TO CONTINUE ...";: INPUT I* 
1 20 CLS s PR I NTTAB ( 27 ) " ENTER DATA " s PR I NT : PR I NT s 

PRINTTAB (13) "NUMBER OF DATA POINTS - MAXIMUM IS 100" 
130 PR I NTTAB ( 28 ) " * " 5 ; I NPUTND s I FND< 20RND > 1 00 

PR I NTCHR* ( 27 ) ; CHR* < 30 ) 5 CHR* ( 29 ) ; CHR* ( 27 ) s GOTO 1 30 
140 PRINT:PRINTsFORI=lTONDsPRINT"X("; I;") ="s s INPUTX ( I ) : 

PRINTTAB (32) CHR* (27) ; " Y ( " ? I ; " ) =" 5 = INPUTY ( I ) : NEXTI 
1 50 CLS : K=0 : PR I NTTAB ( 24 ) " DATA ENTERED " : PR I NT s FOR I = 1 TOND : K=K+ 1 s 

PRINT"X("; I;") =" ; X ( I ) 5 TAB (32) "Y ("; I; " ) =";Y(I)s 

IFK<10NEXTIELSEPRINT3977,"TYPE <ENTER> TO CONTINUE " ? : 

INPUTI*: K=Os CLS: NEXTI 
160 PRINT3983,"EDIT DATA (Y/N)"; 
170 I *= I NKE Y* : I F I *= " " THEN 1 70ELSE I F I *= " Y " THEN 1 80ELSE I F I *= " N " 

THEN 190ELSE 170 
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180 CLSsK=0s INPUT "DATA POINT TO BE EDITED"; Is 

IFI>NDTHEN180ELSEPRINTTAB<4) "X("s Is ") ="sX(I) ; TAB (36) "Y ( " ? Is " 
) ="sY(I)s 

PRINT"NEW X(";I;") =" ; ; INPUTX ( I ) s 

PRINTTAB(32)CHR*(27) s "NEW Y("s I; ") ="s s INPUTY(I) s60T0I50 
190 G0SUB80;PRINT3856, "SELECT MODEL" 
200 PR I NTTAB ( 28 ) " * " ; s I NPUTNL s I FNL< 1 ORNL >3 

PR I NTCHR* < 27 ) s CHR* ( 30 ) ; CHR* ( 29 ) s CHR* ( 27 ) s G0T0200 
210 CLS s PR I NT3473 , " COMPUT I NG ....": N=0 
220 XM=OsYM=OsFQRI=lTONDsXM=XM+X(I) s YM=YM+Y < I ) sNEXTIs 

XM=XM/NDs YM=YM/ND 
230 N=N+lsNl=N+lsN2=N+2 

240 F0RJ=lT05s R < J) =0s S ( J ) =Os F0RK=lT05s G ( J, K) =0: NEXTK, J 
250 FORI=lTONDsXl=X(I) sYl=Y(I) s F0RJ=1T0N1 s F0RK=lT0N2s 

I FK< =N 1 THEN270ELSE260 
260 Q(J,K)=Q(J,K)+(X1C (J-l) )*Yls60T0280 
270 Q<J,K)=Q(J,K)+(X1C<J-1) )*<X1C <K-1> > 
280 NEXTK, J, Is I=-l 
290 FORK= 1 TON 1 s R < K ) =K s NE X TK 
300 Rl=lE-9 

310 FOR J = 1 TON 1 s FORK= 1 TON 1 s I FR ( J ) =0THEN350ELSE320 
320 Z1=ABS(Q(J,K) ) sZ2=ABS(Rl) 
330 IFZ 1< Z2THEN350ELSE340 
340 R1=Q(J,K) sJl=JsKl=K 
350 NEXTK, J 

360 R ( J 1 ) =0s F0RK=lT0N2s Q ( J 1 , K) =Q ( Jl , K) /Rl s NEXTK 
370 FOR J= 1 TON 1 s I F J= J 1 THEN390ELSE380 

380 D=Q(J,K1) sF0RK=1T0N2sQ(J,K)=Q(J,K)-Q(J1,K)*DsNEXTK 
390 NEXT J s 1=1+1 s IFI=NTHEN400ELSE300 
400 FQRJ=lTONlsFORK=lTONlsZl=ABS(Q(J,K) ) 
410 IFZlOl E-9THEN420ELSES ( K ) =Q ( J , N2 ) 
420 NEXTK, J 

430 IFN<NLTHEN230ELSE440 

440 Y3=0sY4=0sY5=0sF0RJ=lT0NBsXl=X(J) sYl=Y(J) s Y2=0 
450 F0RK=lT0NlsY2=Y2+S(K)*(XllI (K.-l) )s NEXTK 

460 Y3=Y3+(Y2-YM) C2s Y4=Y4+ (Yl-YM) C2s Y5=Y5+ (Y2-Y1 ) C2sNEXTJ 
470 RR=Y3/Y4 
480 CLSsPRINTTAB(23)D$(NL) %" POLYNOMIAL"* PRINTS 

PR I NT" THE EQUATION FOR THE REGRESSION LINE IS s " 
490 PRINT:PRINT"YHAT = "; 
500 0NNG0SUB520 , 550 , 590 
510 G0T0640 

520 IFS(1X0PRINT"-";ABS(S(1) ) ; ELSEPRINTS ( 1 ) ? 
530 IFS(2X0PRINT"-";ABS(S(2) ) s "X"; ELSEPRINT"+" ? S(2) ; "X"; 
540 RETURN 

550 IFS ( 1 ) <OPRINT"-" ; ABS (S ( 1 ) ) ; ELSEPRINTS ( 1 ) ; 
560 IFS(2X0PRINT"-";ABS(S(2) ) ; "X" ; ELSEPRINT"+" s S (2) ? "X"; 
570 IFS<3><0PRINT" -" 5 ABS <S <3> > ; "XC2" ; ELSEPRINT" +" ;S <3) ; "XC2" ; 
580 RETURN 

590 IFS ( 1 ) <OPRINT"-" ; ABS <S < 1 ) ) 5 ELSEPRINTS ( 1 ) ; 
600 IFS(2X0PRINT"-"sABS(S(2) ) s "X" ; ELSEPRINT"+" 5 S (2) ; "X"; 
610 IFS<3XOPRINT" -" s ABS (S (3) ) 5 "XII2" 5 ELSEPRINT" +" s S (3) ; "XC2" ; 
620 IFS(4X0PRINT" -"; ABS (S (4) ); "XC3" : ELSEPRINT" +" ; S (4) s "XC3" : 
630 RETURN 

640 PRINTS PRINTS PRINT"MEAN X ="; XMs PRINT"MEAN Y = ";YM 
650 PR I NT s PR I NT "R SQUARE =";RR 

660 PRINT3968,"SELECT NEW MODEL (M> / PRINT RESIDUAL TABLE <T>"; 
670 I $= I NKE Y* s I F I *= " " THEN670ELSE I F I *= " M " THEN 1 90ELSE I F I *= " T " 

THEN680ELSE670 
680 CLS s J =0 
690 FORI=lTONDsXl=X<I)sYl=Y<I) s 

YH=S ( 1 ) +S (2) * Xl+S (3) * ( XI C2) +S (4) * (XI C3) s RS=YH-Y1 
700 IFJ=0G0SUB810 

710 PRINTUSING"##" ; 1 5 s PRINTUSIN6P*; X 1 ; Yl ; YH; RS 
720 J=J+ls IFJ=>10THEN730ELSE740 

730 PRINT3977., ,, TYPE <ENTER> TO CONTINUE . . . "s ; INPUTI*: J=Os CLS 
740 NEXTI 
750 PR I NT SPRINT "SUM OF SQUARES OF DEVIATION FROM REGRESSION ="; 

Y5 
760 PRINT3968,"SELECT NEW MODEL (M) / ESTIMATE VALUES OF Y (E)"; 
770 I *= I NKE Y* ; I F I *= " " THEN770ELSE I F I *= " M " THEN 1 90ELSE I F I *= " E " 

THEN780ELSE770 
780 CLS 3 PR I NT "TO EXIT SELECT NEW MODEL (MXsPRINT 
790 INPUT" X =";X*3lFX*="M"THEN190ELSEXl=VAL(X*)s 

YH=S<1)+S(2)*X1+S(3)*(X1C2)+S(4)*(X1C3) 
800 PRINTTAB(20)CHR*(27)s"Y(";Ns") =" ; YHs G0T0790 
810 PRINT"POINT" ; TAB ( 1 1 ) " X" ; TAB (25) "Y" 5 TAB (38) " YHAT" 5 
TAB (52) "RES" s PRINTS RETURN 
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CURVILINEAR REGRESSION ANALYSIS 

Curvilinear Regression analysis is used to test data for non-linear or curvilinear relationship 
between the dependent variable (Y), and the independent variable (X). This routine allows 
regression analysis for the curvilinear models : 

Y = A * Et(BX) 

Y = A + B LN(X) 

Y = A * X(tB) 

using up to 100 data pairs, which are verified and can be edited following entry. The routine 
calculates coefficients for selected curvilinear models, the mean values of X and Y, and R 2 (an 
indication of closesness of fit, where 1 is perfect). The routine also prints residual tables 
on command and computes values of Y for entered values of X. 

Curvilinear Regression. 




(a) Exponential 

( b ) Power 

(c) Logarithmic 



Independent Variable 
The Mathematical models for these lines are: 

Y = A*CT(BX) 

Y = A*XB 

Y = A+B(X) 



where A and B are specific equation coefficients for calculated relationships. 



10 'ROUTINE FOR CURVILINEAR REGRESSION ANALYSIS 
20 '(C) COPYRIGHT 1980 
30 'T.R.JONES, 
40 '43 HASTIE ST., 
50 'TATURA, 3616 

60 CLSs DIMX ( 100) , Y ( 100) s P*= "#########„ ####" s D* ( 1 ) = "EXPONENT I AL' 
D* (2) =" LOGARITHMIC" : D* (3) ="POWER" : E* ( 1 ) =" Y* S" s E* (2) =" X* S" s 
E*(3)="X'S OR Y'S" 
70 GOSUBSOs GOTO 110 
80 CLS s PR I NTT AB (16)" CURV I L I NEAR REGRESS I ON ANAL YS I S " s 

PRINTTAB (16) STRING* (31 , 45) 
90 PR I NT : PR I NT : PR I NT s PR I NTT AB ( 22 ) " CURV I L I NEAR MODELS " s PR I NT 
100 PRINTTAB(10)D$(1) s " : Y = A § EC (BX) (l)"s 

PRINTTAB ( 10) D$ (2) s " : Y = A + B LN(X) (2)"s 

PRINTTAB ( 10) D* (3)?" s Y = A % XC(B) (3)"s 

RETURN 
110 PRINT.9977,"TYPE < ENTER > TO CONTINUE . . . " ; ; INPUT I* 
1 20 CLS s PR I NTTAB ( 26 ) " ENTER DATA " : PP. I NT : PR I NT s 

PRINTTAB (13) "NUMBER OF DATA POINTS - MAXIMUM IS 100" 
130 PRINTTAB (28) "%"% s INPUTND: IFND<20RND>100 

PR I NTCHR* ( 27 ) ; CHR* ( 30 ) ; CHR* ( 29 ) ? CHR* ( 27 ) s GOTO 1 30 
140 PRINTS PRINTsFORI=lTONDsPRINT"X("; I?") ="; s INPUTX ( I ) s 

PRINTTAB(32)CHR*(27) ? "Y("?I|") ='■ 5 s INPUTY ( I ) sNEXTI 
150 CLSsK=0sPRINTTAB(25) "DATA ENTERED": PRINTS FOR 1 = 1 TONDsK=K+l s 

PRINT"X(" ; I;") ="?X(I) ?TAB(32) "Y(";l5") =";Y(I)s 

IFK<10NEXTIELSEPRINTS>977„"TYPE <ENTER> TO CONTINUE " ; s 

INPUTI*: K=Os CLSs NEXTI 
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160 PRINT3983, "EDIT DATA (Y/N)"s 

1 70 I $= I NKEY* s I F I *= " " THEN 1 70ELSE I F I *= " Y " THEN 1 BOELSE I F I *= " N " 

THEN 190ELSE 170 
180 CLSsK=0s INPUT "DATA POINT TO BE EDITED"; Is 

IFI>NDTHEN180ELSEPRINTTAB(4) "XC'jI;") ="sX(I) s TAB (36) "YC'sI;" 
) =";Y<I)s 

PRINT"NEW XC'il;") =" s : INPUTX ( I ) s 

PRINTTAB (32) CHR* (27) ; "NEW Y ( " s I s " ) =" s s INPUTY ( I ) : G0T0150 
1 90 60SUB80 s PR I NT3856 , " SELECT MODEL " 
200 PR I NTT AB < 28 )"*";: I NPUTNL s I FNL< 1 ORNL >3 

PR I NTCHR* ( 27 ) s CHR* ( 30 ) s CHR$ ( 29 ) s CHR* ( 27 ) s G0T0200 
210 CLSs PRINT3473, "COMPUTING . . . . " s 
220 XM=0s YM=Os FORI=lTONBs XM=XM+X ( I ) s YM=YM+Y ( I ) : NEXTI s 

XM=XM/ND: YM=YM/ND 
230 0NNLG0T0240 , 350 , 460 
240 'EXPONENTIAL CURVE FIT 

250 FOR 1 = 1 TOND s I F Y ( I X =0THEN570ELSENE X T I 
260 X2=0s X3=0s X4=0: Y2=0s Y3=0; Y4=0s FORI=ITONDs 

X2=X2+X(I) sX3=X3+(X(I)C2) s X4=X4+ (X ( I ) t LOG (Y ( I ) ) )s 

Y2=Y2+Y(I) :Y3=Y3+L0G(Y(I) ) s Y4=Y4+ (LOG ( Y ( I ) ) C2) s NEXTI 
270 B1=X4- (X2*Y3) /NDs B2=X3- (X2E2) /NDs B=B1 /B2 
280 Al=Y3/ND;A2=Bf (X2/ND) : A=EXP ( A1-A2) 
290 R1=Y4- (Y3E2) /NDs R-Bl E2/ (B2*R1 ) 
300 CLS s PR I NTT AB ( 23 ) D$ ( 1 ) s " CURVE " s PR I NT s 

PR I NT "THE EQUATION FOR THE REGRESSION LINE ISs " 
310 PRINTsPRINT"YHAT =" ; A? "EXP ( " ; Bs "X )" 
320 PRINTS PRINT"MEAN X =" s XMs PRINT"MEAN Y = "sYM 
330 PRINT? PR I NT "R SQUARE =";R 
340 G0T0590 

350 'LOGARITHMIC CURVE FIT" 

360 FORI=lTONDs IFX ( I )<=0THEN570ELSENEXTI 
370 X2=0s X3=0s X4=Os Y2=0s Y3=0s Y4=0s FORI=lTONDs 

X2=X2+X(I) sX3=X3+L0G(X(I) ) s X4=X4+<L0G (X ( I ) ) C2) s 

Y2=Y2+Y(I);Y3=Y3+(Y(I) C2) s Y4=Y4+ ( Y ( I ) *LOG (X ( I ) ) )s NEXTI 
380 Bl=Y4-(X3*Y2)/NDsB2=X4-(X3C2)/NDsB=Bl/B2 
390 A=(Y2-(B&X3) )/NB 

400 R1=Y3-(Y2C2/ND) s R=B1 11/ (B2*R1 ) 
410 CLS: PRINTTAB (23) B$ (2) s " CURVE"? PRINTs 

PR I NT "THE EQUATION FOR THE REGRESSION LINE IS s" 
420 PRINTS I FB<OPR INT" YHAT =" s As "-" s Bs "LOG (X) " 

ELSEPRINT"YHAT =" s A? "+" ; Bs "LOG (X ) " 
430 PRINTS PRINT"MEAN X =" s XMs PRINT"MEAN Y = "sYM 
440 PRINTS PRINT"R SQUARE = "sR 
450 G0T0590 
460 'POWER CURVE FIT 

470 FORI = lTONDs IFY ( I ) <=OORX < I ) <=0THEN570ELSENEXTI 
480 X2=0s X3=0s X4=0s Y2=0s Y3=0s FORI = lTONDs 

X2=X2+L0G(X(I))sX3=X3+(L0G(X<I) ) C2) s 

X4=X4+(L0G(X(I) )*LOG(Y(I) ) ) s Y2=Y2+L0G ( Y ( I ) ) : 

Y3=Y3+ (LOG ( Y ( I ) ) *LOG ( Y ( I ) ) ) ; NEXTI 
490 B1=X4-(X2*Y2) /NDs B2=X3- ( X2C2) /NDsB=Bl/B2 
500 Al=Y2/NDsA2=B*(X2/ND) s A=EXP (A1-A2) 
510 R1=Y3- (Y2C2) /NDs R=B1 C2/ (B2*R1 ) 
520 CLSsPRINTTAB(26)D*(3)3" CURVE" s PRINTS 

PR I NT "THE EQUATION FOR THE REGRESSION LINE IS s " 
530 PRINTS PRINT"YHAT =" s As "XC " s B 

540 PRINTS PRINT"MEAN X =" s XMs PRINT"MEAN Y = ";YM 
550 PR I NT s PR I NT "R SQUARE = "|R 
560 G0T0590 
570 CLSsPRINT3388,"CANN0T TAKE LOGARITHMS OF NEGATIVE AND /OR "s 

"ZERO ":E*(NL> 
580 PR I NT3832 , s END 

590 PRINT396S,"SELECT NEW MODEL (M) / PRINT RESIDUAL TABLE (T)"s. 
600 I *= I NKE Y* s I F I *= " " THEN600ELSE I F I *= " M " THEN 1 90ELSE I F I *= " T " 

THEN610ELSE600 
610 CLSs J=Os SS=Os FORI = lTONDs X 1=X ( I ) s Y1=Y ( I ) s 

0NNLG0SUB740, 750, 760s RS=YH-Y1 s SS=SS+ (RSC2) 
620 IFJ=0G0SUB770 

630 PRINTUSING"##"s I ; s PR I NTUS I NGP* s XI % Yl s YH; RS 
640 J=J+ls IFJ=>10THEN650ELSE660 

650 PRINT5)977,"TYPE <ENTER> TO CONTINUE „..."; s INPUTI*s J=Os CLS 
660 NEXTI 

670 PRINTS PR I NT "SUM OF SQUARES OF DEVIATION FROM REGRESSION ="sS 
S 

680 PRINT3968,"SELECT NEW MODEL (M) / ESTIMATE VALUES OF Y (E)"; 
690 I *= I NKEY* s I F I *= " " THEN690ELSE I F I *= " M " THEN 1 90ELSE I F I *= " E " 

THEN700ELSE690 
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700 CLS:PRINT"TO EXIT SELECT NEW MODEL (M)": PRINT 
710 INPUT-X =":X*:IFX*="M"THEN190ELSEX1=VAL(X$) 
720 0NNLG0SUB740 , 750 , 760 

730 PR I NTTAB ( 20 ) CHR* ( 27 ) s " YH AT = " ; YH s G0T07 1 
740 YH=A*EXP(B*Xl)s RETURN 
750 YH=A+B*LOG ( X 1 ) s RETURN 
760 YH=A*(X1LB) 5 RETURN 

770 PRINT"POINT" ; TAB ( 1 1 ) " X" : TAB (25) "Y" ; TAB (38) " YHAT' 
TAB ( 52 ) " RES " s PR I NT : RETURN 



***** STEEPLE CHASE LII/16K - by C. Cranstone ***** 

Welcome to steeple chase! The grand old DUKE OF NAGSVILLE has invited you and your associates 
to a steeple chase in his honour. 

Due to an old war wound the Duke cannot participate. The Duke will be watching and making various 
comments on your expertise. (Or lack of!!!) 

If you ride very badly then you risk the chance of a broken leg. (Or two!!) If you do manage 
to break a leg you will be taken away in the ambulance. 

Press the 'S' key to start the ride. 
Press the 'J' key to jump. 

The winner and scores will be displayed at the end of the day. 

The program also includes sound which can be heard through the external cassette deck The 
sound routine is POKEd into line 10 after the REM. If you are typing this program in from the 
magazine, you should fill the rest of line 10 with blanks, otherwise an error will result. 



STEEPLECHASE . 


■ 


BBBBBUBSm 




You've broken your leg! 


MBS 



10 G0T020sREM ** STEEPLE/BAS ** (C) 1981 C. CRANSTONE 

N.B. LINE 160s B$="7 SPACES s DOWN ARROW: 7 SPACES s DOWN ARR0Ws7SPA 
CES" 

20 CLS: TT=PEEK ( 16549) *256+PEEK ( 16548) : TA=TT+59: M=TT+10 

30 Ml=INT(M/256) :M2=INT (M-M 1*256) : F0RL=MT0M+47s READZ:POKEL, Z: NEX 

T s I FTT< > 1 7 1 29 ANDTT< > 1 7385THENDEFUSR0=MELSEP0KE 1 6526 , M2 : POKE 1 6527 , 

Ml 

40 DATA205, 127, 10, 229, 221 , 225, 221 , 78, O, 121 , 183, 200, 221 , 70, 1 , 62, 5 

,211,255, 16,254,221,70, 1,62,6,211,255, 16,254, 13,32,235,221,35,221 

,35,1,255,255,33,48,0,9,56,253,24,214 

50 TA=PEEK(16549)*256+PEEK(16548)+59sF0KETA, 100s POKETA+1 , 100: POK 

ETA+2,0:X=USR(TA) 

60 REM**STEEPLE/BAS s C. CRANSTONE AUG. 1981 (C) 

70 CLEAR 100 

SO CLS:PRINTCHR*(23) s PRINT: PRINT: PRINTSTRING* (31 , 176) sCLEAR2000: 

DEFSTRH,G,J:JS=STRING*(64,32) : MN*=CHR* (23) +"S teeplechas 



B y 



Cranstone 



( C ) 19 8 1 . ":FORK=lTOLEN(MN$) sPRINTMID* (MN*, K, 1) ::FORP=lTOO 
5: NEXTP: NEXTKs F0R0=1T0700: NEXTO 
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90 F0RT=1T04S: READS :NEXTTsCV=32 

100 IU*=" **Steeplechase** - **Wr 

itten by C. Cranstone <C) 1981** - **Press 'I' for instructions o 

r 'ENTER' for garnet* " 

110 6QSUB1590 

120 CLSs TA=PEEK < 16549) *256+PEEK ( 16548) +59 s F0RK=lT050s PRINT3RND (8 

59) , " . " s s NEXTK: PRINT3272, SC*s. s PRINT3595, EM*s 

1 30 CV=CV+ 1 s I FCV >=LEN ( I U* ) THENCV=OELSEPR I NT3395 , MI D* ( I U* , CV , 37 ) s 

s POKETA, 10s POKETA+1 , 10s POKETA+2, Os X=USR (TA) : F0RU=lT05s NEXTU 

1 40 I FPEEK ( 1 5358 ) =0THEN 1 30ELSEWQ=PEEK ( 1 5358 ) s I FWQ=2THEN 1 440ELSE I 

FWQ= 1 THEN 1 50ELSE 1 30 

150 ' 

160 B*=" 

170 C*=" "+CHR*(27)+STRING*(5,24)+" 

180 TA=PEEK (16549) *256+PEEK (16548) +59 

190 PP* ( 1 ) ="f i rst " s'PP* (2) ="second" s PP* (3) ="thi rd" s PP* (4) ="f ourth 

" : PP* (5) ="f i f th" s PP* (6) ="sixth" 

200 K*= I NKE Y* 5 I FK*= " " THEN200 

210 CLSsPRINTsPRINT"How many riders are there" s CHR* (95) ; 

220 H8=H8+CHR* ( 27 ) +CHR* ( 27 ) + " " +CHR* ( 26 ) +CHR* ( 26 ) 

230 K*= I NKE Y* s I FK*= " " THENPR I NTCHR* ( 8 ) s CHR* ( 1 43 ) ; s G0T0230ELSEK= V A 

L(K*) 

240 I FK< =00RK >6THENPR I NT " Bad input"; F0R0= 1 T0300 s NEXTO s 60T02 1 OELS 

EPRINTCHR*(8) ?K 

250 NP=K 

260 V=0 s TA=PEEK ( 1 6549 ) *256+PEEK ( 1 6548 ) +59 s POKETA , 1 00 s P0KETA+ 1,13 

Os POKETA+2, Os X=USR (TA) 

270 FORXl=lTQNP;PRINT"Player number "XI", enter your name "ssINP 

UTNA*(X1) sNEXTXl 

280 ' 

290 QW=826 s V= V+ 1 s I FV >NPTHEN 1 070ELSECLS s F0RK= 1 T045 s PR I NT-9RND ( 767 ) 

,".";: NEXTK 

300 PRINTS>15,SC* 

310 I FNT ( V ) >= 1 0THEN280 

320 PR I NT3 192, "Will the "PP*(V)" rider please mount ." s NT (V) =NT (V 

)+ls IFNT(V) >=10THENPRINT;3256, "Last ride " s NA* (V) s " ! " s 

330 PRINT3650," "s 

340 S0T0470 

350 ' 

360 PRINT3896, "Press *S* when ready to start please "sNA*(V) 

370 IFINKEY*<>"S"THEN370ELSEPRINT:S320, "Ride number "sNT(V)s 

380 PRINT3896, " . 

. "s sPRINTS)192, " 
";sPRINT5>256," . "s 

390 POKETA, lOOs POKETA+1 , 50s POKETA+2, 0: X=USR (TA) 
400 60SUB600 
410 RANDOM 
420 G0SUB490 

430 I F I NKE Y*= " J " THENG0SUB680 
440 PRINT3896," . 

450 POKETA, 5s POKETA+1 , 100s POKETA+2, 4: PQKETA+3, 254s P0KETA+4, Os X=U 

SR(TA) 

460 PRINT3832, J9? s PRINT3833, LEFT* ( J9, LEN ( J9) -1 ) s G0T0420 

470 P0=P0+ 1 ; I FP0= 1 THENPR I NT3640 , B* s s PR I NT3832 , J 9 : ; PR I NT3640 , H4 ; E 

LSE I FP0=2THENPR I NT3640 , B* s s PR I NT 3832 , J 9 s s PR I NT3640 , H5 s ELSE I FPO >=3 

THENP0=0:PRINT3640,B*s s PRINT3S32, J9; : PRINT3640, H6s 

480 POKETA, 100: POKETA+1 , 16s POKETA+2, Os X=USR(TA) : F0RP=1T0150: NEXT 

Ps AS=AS+1 s IFAS=>6THENAS=0s 60T0350ELSE470 

490 ' MOVE 

500 PRINT3QW,JU*s sPP=PP+ls IFPP=1THENPRINT3640, B*s : PRINT3640, H2s E 

LSE I FPF-2THENPR I NT3640 , B* ; s PR I NT3640 , H 1 s ELSE I FPP=3THENPR I NT3640 , B 

* s s PR I NT3640 , H3 : ELSE I FPP >=4THENPP=0 : PR I NT3640 , B* ; ? PR I NT3640 , H 1 s 

510 PRINT3QW,C*s s QW=QW-RND (3) s IFQW<774THENIP=QW: PRINT3650, "Nay! 

Ouch ! " ; s QW=0s PRINT3640, HI s s G0TQ690ELSEPRINT3QW, JU*s 

520 RETURN 

530 POKETA, 100: POKETA+1 , 20: POKETA+2, Os X=USR (TA) s PR I NT3QW , C* ; s QW= 

QW-RND (3) s IFQW<=775THENQW=775: RETURNELSEPRINT3QW, JU$; 

540 PRINT3S32, J9; : PRINT3333, LEFT* < J9, LEN < J9) -1 > : RETURN 

550 POKETA, 45s POKETA+1 , 60s POKETA+2, 0: X=USR (TA) s ONRND (4) G0TQ560, 5 

70, 580, 590 

560 PRINT3256, "Go see an optician !" s s RETURN 

570 PRINT3256, "You jumped too early !" s s RETURN 

580 PRINT3256, "Do they let you out on weekends?" ss RETURN 

590 PRINT3256, "Whats the matter? Got a nervous twitch or somethi 

ng?"ss RETURN 
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600 'PICK JUMP 

6 1 POKET A , 34 : POKETA+ 1 , 52 s POKET A+2 , : X=USR ( T A > s ONRND ( 6 > G0T062O , 6 

30 , 640 , 650 , 660 , 670 

620 JU*=J 1 s RETURN 

630 JU*=J2s RETURN 

640 JU*=J3s RETURN 

650 JU*= J 4 : QW=82 1 s RETURN 

660 JU*=J5: RETURN 

670 JU*=J6s RETURN 

680 I P=QW : PR I NT3640 , B* : s PR I NT364 1 , H7 5 s 60SUB530 s PR I NT364 1 , B* s : PR I 

NT.3512,H9s s G0SUB530: PRINT3452, B*; s PRINT3512, H9s s GOSUB5*o' s PRINT345 

2, B* 5 s PRINT3640, HS; : 60SUB530: F0R0=1T01505 NEXTO; PRINT3640, B*; s PRIN 
T3640 , H 1 ; s 60SUB 1 000 

690 QW=S26: IFIP<=774THENG0SUB1320s PR I NT® 192, "Bad jump « "sG0SUB77O 

s G0SUB760: G0T0740 

700 QW=826:IFIP=776THENPRINT5>192,"Fair jump! 2 points "■ ;G0SUB8^O 

; G0SUB760: SC (V) =SC (V) +2s G0T0740 

710 QW=826sIFIP=777THENPRINT3192,"Poor jump! 1 point ' " s G0SUB88O s 

G0SUB760: SC ( V) =SC ( V) +1 : G0T0740 

720 QW=826sIFIP=775THENPRINT3192,"Good jump by jove « " sGQSUB94f>s G 

GSUB760 s SC ( V ) =SC ( V ) +3 : G0T0740 

730 QW=826sIFIP>=776THENPRINT5>192,"You need ql asses •! "s GOSUBSSOs 

G0SUB760 : SC ( V ) =SC ( V ) - 1 s G0T0740 

740 I FNT ( V ) >= 1 0THEN290ELSE320 

750 RETURN 

760 F0RTY=0T0500s NEXTTYs RETURN 

770 PQKETA, 76s POKETA+1 , 76: POKETA+2, 0: X=USR (TA) : ONRND (4) G0T078O, 7 

90,800,810 

780 PRINT3256, "Are you riding a horse or a corgi?" s s RETURN 

790 PRINT3256, "Constructive comments take up a new hobbv ' " s s RETU 

RN 

800 PRINT3256, "Are you sure you can ride a horse?" ; s RETURN 

810 PRINT3256, "Whats the matter! have you got a loose saddle'?";: 

RETURN 

820 RETURN 

830 POKET A , RND ( 255 ) : POKET A+ 1 , 45 s POKETA+2 , ; X=USR < T A ) : ONRND < X ) GOT 

0840,850,860 

840 PRINT3256, "A bit more effort and you'll make it over easier' 

" ; s RETURN 

850 PRINT3256, "Pretty good, but not excel lent !"; sRETURN 

860 PRINT3256, "At least your trying! keep up the standard «"; ;RET 

URN 

370 RETURN 

880 POKET A , RND < 255 ) s P0KETA+ 1,43s POKETA+2 , ; X=USR < T A > s ONRND < 4 ) GOT 

0890, 900, 910, 920 

890 PRINT3256,"Only 1 point! Now try for more! ";: RETURN 

900 PRINT3256,"A corgi could do better !!";; RETURN 

910 PR INT3256, "Shape up or ship out MM"; s RETURN 

920 PRINT3256, "A bit weak! Come on, you can do better than th^>t 

! ": s RETURN 

930 RETURN 

940 PQKETA, Ills POKETA+1 , 90s POKETA+2, Os X=USR t TA> s ONRND <4> GOTO^SO 

960,970,980 

950 PRINT3256, "I say, well done old chap ! " s s RETURN 

960 PRINT3256, "Brilliant! Absolutely bri 1 1 iant !";; RETURN 

970 PRINT3256, "Awwwf ully good! Well done I say !";; RETURN 

980 PRINT3256, "What a jump! Wonnnderf ul * fChnrL-ls chorkle ' ) " - - RE 

TURN 

990 RETURN 

1000 IFIP=777ANDJU*=J4THENSC(V)=SC(V)-l:PRINT3448,"Your horse hi 

t water! lose the point ! "p s F0R0=lTQ400s NEXTOs PR INT3448, " 

.";: RETURN 
1010 IFIP=777ANDJU$=J6THENSC<V)=SC(V)-lsPRINT3448 ? "Your horse la 
nded in the mud! Lose the point ! " ; :FORO=lT0400sNEXTOs PRINT344S, " 

. " S s RETURN 
1020 POKETA, 50s POKETA+1 , 75s POKETA+2, Os X=USR (TA) s RETURNELSERETURN 
1030 PRINT" ft Winners tt" 

1 040 F0RT= 1 TONP s I FW I $ ( T ) = " Y " THENPOKET A , 20 s POKET A+ 1 , 20 : POk ET A+2 , O 
: X=USR (TA) s PRINTNA* <T) s NEXTTELSENEXTT 

1 050 F0RT= 1 TONP s I FW I * ( T ) = " Y " THEN 1 060ELSEPR I NT " DRAW ■ NO W I NNER • " 
1060 RETURN 
1070 » 

1080 CLS;PRINT315,SC$s. 
1090 PRINTS PRINTSTRING* (64, 176) 

1 1 00 F0RT= 1 TONP s PR I NTCHR* ( 1 43 ) s " " s NA* ( T ) ; STR I NG* ( 20-LEN ( N A* ( T ) > 
,32); "scored " ; SC (T) s NEXTT 

1110 I FNP >= 1 THEN I FSC ( 1 ) >SC ( 2 ) ANDSC ( 1 ) >SC ( 3 ) ANDSC ( 1 ) >SC ( 4 1 ANDSC ( 
1) >SC(5)ANDSC(1) >SC(6)THENWI*(1)="Y" 
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1 1 20 I FNP >=2THEN I FSC ( 2 ) >SC ( 1 ) ANDSC ( 2 ) >SC ( 3 ) ANDSC < 2 ) >SC ( 4 ) ANDSC < 2 

) >SC(5)ANDSC<2) >SC (6) THENWI* (2) ="Y" 

1 1 30 I FNP >=3THEN I FSC ( 3 ) >SC ( 1 ) ANDSC < 3 ) >SC < 2 ) ANDSC < 3 ) >SC < 4 ) ANDSC < 3 

) >SC(5)AND5C(3) >SC (6) THENWI* (3) =" Y" 

1 1 40 I FNP >=4THEN I FSC ( 4 ) >SC ( 1 ) ANDSC < 4 ) >SC ( 2 ) ANDSC ( 4 ) >SC ( 3 ) ANDSC < 4 

) >SC<5> ANDSC <4) >SC (6) THENWI* (4) ="Y" 

1 1 50 I FNP >=5THEN I FSC ( 5 ) >SC ( I ) ANDSC ( 5 ) >SC ( 2 > ANDSC ( 5 ) >SC ( 3 ) ANDSC ( 5 

) >SC(4)ANDSC(5) >SC (6) THENWI* (5) ="Y" 

1 1 60 I FNP >=6THEN I FSC < 6 ) >SC ( 1 ) ANDSC ( 6 ) >SC ( 2 > ANDSC ( 6 ) >SC ( 3 ) ANDSC < 6 

) >SC ( 4 > ANDSC ( 6 ) >SC ( 5 ) THENW I * ( 6 ) = " Y " 

1170 PRINTSTR.ING*<64, 131) s GOSUB 1030s F0RT=lT03000s NEXTT: CLSs PRINT 

5)15, SC*; 

1180 PRINTS PR I NT "Another gasse? "s 

1 190 PRINTCHR* ( 143) ; CHR* (8) ; s POKETA, 137s POKETA+1 , 9s POKETA+2, Os X= 

USR(TA) 

1 200 I FPEEK < 1 5359 ) =OTHEN 1 1 90ELSEK=PEEK ( 1 5359 ) 

POKETA, 1 00 : POKET A+ 1, 100s POKETA+2, Os X=USR(TA) 

IFK=2THENRUN 

DEFSTRC ; C=CHR* (143): CLS s PR I NT30 , STR I NG* ( 64 , 1 43 ) ; s PR I NT s PR I N 



CsCs sNEXTTsPRINT5)79,SC* 



1210 

1220 

1230 

T 

1240 PRINT5)64,C; s F0RT=2T014s PRINT3T? 64-1 

5 s PR I NT3270 , H 1 s s PR I NT3J390 , FM* ; 

1 250 PR I NT3896 , STR I NG* (64,188); 

1260 N*=" 

ti 'Steeplechase' Written by C 
ristie downs, Adelaide, South Australia. 
/PMC-SO/VIDEO GENIE and TRS-80 Model I a" 
1270 N*=N*+"nd Model III computers tt " 
1280 V=60 

1 290 V=V+ 1 s I F V >=LEN ( N* ) THENV=OELSEPR J *!7d577 , M I D* ( N* , V , 62 ) ; s POKET 
A, 255s POKETA+1 , 14s POKETA+2, 0; X=USR (TA) 

F0RT=lT020sNEXTT 

GOTO 1290 



Cranstone 
: Modified 



(C) 
for 



1981 s Ch 
SYSTEM-80 



1 300 
1310 
1 320 
1330 
1340 



";:F0R0=1T0 
s sF0R0=lT030 

1QQ 



IFRND (3) < >2THENRETURN 

PR I NT3640 , EM* s s F0RT=TAT0T A+50STEP2 s POKET , 50 s POKET+ 1 , T- ( TA- 
) s NEXTT s POKETA+51 , Os POKETA+52, Os X=USR (TA) 
1350 PRINT3640,EM*s 

1 360 POKETA ,120s POKET A+ 1,24s POKETA+2 , O 
1 370 F0RT=650T0690STEP2 s PR I NT5)T , FM* ; s PR I NTS)T+64+64 . 
30s NEXTOs PRINTS)T,C*; s PRINT3T+1 , FB*; sPRINTS)T+65+64, ' 
s NEXTOs PRINTS>T+1 , C*s s X=USR (TA) : NEXTT 

1 380 POKETA+ 1 6 , O s PR I NT3T+64 , CM* s s FORT=T ATOT A+ 1 5STEP2 s POKET+ 1 
s POKET, T- (TA-2) : NEXTT s X=USR(TA) 

1390 PRINT3448, "You' ve fallen off of your horse and broken your 
1 eg ! ! " ; s F0RU=lT0400s NEXTUs PRINT3448, CHR* (30) ; 
1 400 POKETA ,13s PQKET A+ 1 , 1 89 ; POKETA+2 , 

1410 F0RT=448T0485sPRINT5)T,Al*s s F0R0=1T015: NEXTOs PRINT5)T,A2*;sFO 
R0=lT015s NEXTOs PRINT3448, CHR* (30) ; s PRINT3512, CHR* (30) s sPRINT5)576, 
CHR* (30) psX=USR(TA) s NEXTTsPRINT5)T-l , Al*s sPRINT5>755, " "+CHR 
*(26)+STRING*(8,24)+" " ? s PRINT3485, Al*; 

1420 F0RX=lT0700sNEXTX 
1430 G0T0280 

1440 REM** \\ Instructions below \\ ** 

1450 CLSsF0RT=lT045sPRINT3RND(896) , " . "s s NEXTTsPRINT379, SC*; 
1460 PRINTSK), STRING* (64, 143) 5 s PRINT3896, STRING* (64, 188) ; SPRINT36 
4, CHR* (143) ; s F0RT=2T014; PRINTS)T*64-1 , CHR* ( 143) s CHR* (143) ssNEXTTsP 
RINT5)959, CHR* ( 143) s s IFVK=2THENRETURN 
1470 PR I NTSD209, "Welcome to steeplechase!"? 

1480 PRINTS)257,"The grand old DUKE OF NAGSVILLE has invited you 
and your . . " s 
1490 PRINT3321, 
1500 PRINT3449, 
ipate. . . "5 
1510 PRINT5)513, 
ments on your " 
1520 PRINT3641, 
of a broken 
break a leg 



'associates to 
"Due to an old 



a steeplechase 
war wound, the 



in his honour."; 
Duke can not parti c 



"The Duke will be watching and making 
; sPRINT5>577, "expertise. (Or lack of!! 
"If you ride very badly then you 

If 



";;PRINT5)705,"leg» (Or two!!) 
you will be"; ;PRINT3769, "taken 



various com 
!)"; 
risk the chance 
you do manage to 
ambulance. 



away i n the 



1530 PRINT3847, "Press any key to continue" 
1 540 I FPEEK ( 1 5359 ) =0THEN 1 540 
1550 VK=2; GOSUB 1 440 :VK=0 
1560 PRINT5)321, "Press the 'S' 
, "Press the 'J' key to jump." 



key to start the ride.";: 
:PRINT3577,"The winner & 



PRINTS>449 
scores wi 1 



1 be displayed at the end of the day. 
Press any key to continue"; 
1 570 I FPEEK ( 1 5359 ) =0THEN 1 570 



; : PRINT3705, HI ; 5 PRINT3847, " 
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1580 GOTO 120 

1590 REM 

1600 DATA32, 144, 32, 32, 32, 32, 32, 184, 144, 26, 24, 24, 24, 24, 24, 24, 24, 2 

4,24, 130, 130,188, 188,188,188, 190, 135,131,26,24,24,24,24,24,24,24, 

24, 24, 32, 168, 169, 129, 32, 130, 150, 180s * EM* 

1610 F0RT=lT046sREADAsEM$=EM*+CHR*(A)sNEXT 

1620 DATA136, 179, 129, 171 , 129, 183, 129, 183, 129, 183, 153, 170,32, 170, 

147, 129, 151,129, 181, 186, 168, 179, 148, 166, 147, 170, 147, 129, 26, 24, 24, 

24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24 

,24,24,24,24,136,140,129,138,32,141,132,141,132 

1630 DATA133,32, 138, 140, 138, 140, 132, 141 , 132, 133, 138, 138,32, 1/CT, 1 

40, 134, 138, 140, 132; F0RT=lT085s RE AD As SC*=SC*+CHR$ (A) s NEXT 

1640 DATA32, 168, 183, 176, 190, 180,26,24,24,24,24,24,24,24,32, 150, 1 

90, 159, 163, 141,32,26,24,24,24,24,24,24,24,32,136, 153, 145, 32, 32s' H 

7 

1650 F0RT=lT035;READAsH7=H7+CHR*<A) sNEXTT 

1660 DATA32, 164,32,32,32, 160, 144,26,24,24,24,24,24,24,24,32, 160, 

175, 188, 188, 159, 131,26,24,24,24,24,24,24,24, 136, 137, 129,32, 130, 18 

2, 164s F0RT=lT037s READA: H8=H8+CHR* <A) ; NEXTT 

1670 DATA168, 191 , 191 , 191 , 148, 27, 24, 24, 24, 24, 24, 32, 160, 176, 144,32 

, 26;F0RT=1T017:READA:J1=J1+CHR*(A):NEXT 

1680 DATA136, 191 , 132, 27, 24, 24, 24, 160, 176, 144, 26s F0RT=1T01 1 s READA 

: J2=J2+CHR*(A) ; NEXTs DATA191 , 191,27,24,24, 160, 144, 26s F0RT=lT08s REA 

DAsJ3=J3+CHR*(A) s NEXTs DATA136, 191 , 132, 27, 24, 24, 24, 160, 176, 144, 26, 

32,32,32,32,32,26,24,24,24,24,24,87,97,116,101,114 

1690 DATA27;F0RT=1T028; READA s J4=J4+CHR* (A) sNEXT 

1700 F0RT=1T021 s J9=J9+CHR* < 131 ) +CHR$ (35) +CHR* (38) s NEXTs DATA191 , 1 

40, 140, 140, 191 , 27, 24, 24, 24, 24, 24, 176, 32, 32, 32, 176, 26s F0RT=lT017s R 

EADA: J5=J5+CHR$ ( A) s NEXT 

1710 DATA191, 191,27,24,24, 160, 144,26,32,32,32,26,24,24,24,77, 117 

, 100, 27s F0RT=1T019; READA: J6=J6+CHR$ (A) s NEXTTs DATA160,32, 32, 32, 144 

,26,24,24,24,24,24,32, 137,191,134,32,26,24,24,24,24,24,160,134,32 

, 137, 144sF0RT=lT027sREADAsFM*=FM$+CHR*(A) sNEXTT 

1720 DATA32, 144,32,32, 160,26,24,24,24,24,24,32, 130, 164, 152, 129,2 

6 , 24 , 24 , 24 , 24 , 24 , 32 , 1 52 , 1 39 , 1 35 , 1 64 s FORT= 1 T027 s READA s FB*=FB*+CHR* 

(A) ;NEXT:DATA32, 160,164,152, 144,26,24,24,24,24,24,32,153, 139, 135, 

166s F0RT=lT016s READAs CM*=CM*+CHR* ( A) s NEXTT 

1730 DATA32,32,32,32,32, 176,32, 144,26,24,24,24,24,24,24,24,24, 13 

6,137,176,184,191,176,190,143,132,26,24,24,24,24,24,24,24,24,24,3 

2, 160, 167,135,131,139, 153,144,26,24,24,24,24,24,24,24,24,32,129, 1 

29, 32, 32, 32, 130, 130s F0RT=1T061 s READAs H9=H9+CHR* (A) 

1740 NEXT; DATA32, 32, 32, 160, 188, 176, 32, 184, 144, 26, 24, 24, 24, 24, 24, 

24,24,24,24,160, 134,188, 191, 191, 189,190, 135,131,26,24,24,24,24,24 

,24,24,24,24,32, 152, 169, 129, 160, 134, 130, 148, 32s F0RT=1T047; READA; H 

5=H5+CHR* ( A) s NEXT 

1750 DATA32, 144,32, 160, 179, 176,32, 184, 144,26,24,24,24,24,24,24,2 

4,24,24, 130, 130, 188, 188, 191, 189, 188, 159, 131 , 129, 26,24, 24, 24,24,24 

,24,24,24,24,32, 168,169,129,32, 130, 150, 148; F0RT=1T047: READA s H6=H6 

+CHR$(A):NEXT 

1760 DATA32,32, 151, 131,131,131,131,147,131,131,171, 131,139,164,1 

44, 32, 32, 32, 26, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24 

,24,32,32, 149,32, 176, 176, 147, 135, 129,32, 130, 131, 131, 179, 179, 147, 1 

31 , 148, 26, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24 

1770 DATA24,24,24,24,32, 136, 141, 134, 166, 179, 134, 140, 140, 140, 140, 

140, 134, 166, 179, 134, 140, 141 : F0RT=lT092s READA: A1*=A1$+CHR* (A) s NEXT 

T;DATA32,32,32, 160, 179, 176,32, 184, 144,26,24,24,24,24,24,24,24,24, 

24,32,150,188,191,191,189,190,135,131,26,24,24,24,24,24 

1780 DATA24,24,24,24,32, 168, 169, 129,32, 130,150, 148, 32s F0RT=1T047 

s READA; H1=H1+CHR* (A) s NEXT; DATA32, 136, 144, 32, 184, 188, 151 , 160, 180, 3 

2,26,24,24,24,24,24,24,24,24,24,24,32,32,130, 188, 190, 189,188, 159, 

131,129,26,24,24,24,24,24,24,24,24,24,24,32,32,32 

1 790 DATA 1 37 , 1 53 , 1 44 , 1 30 , 1 66 , 1 64 , 32 : FORT= 1 T052 : READA ; H2=H2+CHR* ( 

A) ;NEXT;DATA32,32,32, 176, 179, 144,160,180,32,26,24,24,24,24,24,24, 

24,24,24, 168, 169, 188, 190, 191, 188, 159, 131, 129,26,24,24,24,24,24,24 

,24,24,24,160, 166,134, 160, 152, 153,129,32,32 

1800 F0RT=lT047;READAsH3=H3+CHR*(A) sNEXTs DATA32, 32, 32, 160, 179, 17 

6,32, 160,32,26,24,24,24,24,24,24,24,24,24, 168, 169, 188, 191, 191, 189 

,188, 175, 189,26,24,24,24,24,24,24,24,24,24,32,168,169, 129,32,130, 

150, 164s F0RT=lT046s READA s H4=H4+CHR* ( A) s NEXT 

1810 DATA32,32, 151 , 131 , 131 , 131 , 131 , 131 , 131 , 131 , 171 , 131, 139, 164, 1 

44, 32, 32, 32, 26, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24 

,24,32,32, 149,32, 176, 176, 144,32,32,32, 130, 131, 131, 179, 179, 147, 131 

, 148, 26, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24 

1820 DATA24,24,24,24,24,24,32, 136, 141, 134, 140, 153, 134, 140, 140, 14 

0, 140, 140, 134, 140, 153, 134, 140, 141 : F0RT=lT092s READAs A2*=A2*+CHR* (A 

) s NEXT 

1830 RETURN 
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Next month's issue will contain at least the following programs plus the usual features and 
articles. 



** MEASUREMENTS LII/16K 



SUPER HANGMAN LII/16K 



This program was primarily designed to 
help high school students with their studies. 
It poses problems and asks questions on 
the following solid figures: cube, rectangle 
faced prism, rhombus faced prism, triangle 
faced prism, parallelogram faced prism, 
trapesium faced prism, cylinder, pyramid 
cone and sphere. All of the above figures 
are displayed graphically before the questions 
are asked. 



Oh no! Not that again. That's what you 
thought when you saw the title and so did 
I, which just goes to prove how wrong Software 
Editors could be if they didn't look at 
EVERY program, regardless of the title. 
This FANTASTIC program has constantly animated 
graphics, plays tunes and sound effects 
and is Hangman like you never saw it before 
- don't miss it! ! ! 



** FILES LII/48K ** 



DATA BASE MANAGEMENT SYSTEM 48K/Disk 



Yes... it is! The files program that was 
requested to be modified to run in 48K. 
Originally published way back in issue 
3, February 1980, the program had a m/1 
routine that had to be loaded separately 
- very messy!!! This version has the 
machine language built right into the BASIC 
program. 



Next month we present this efficient Data 
base management system. This one program 
alone is worth more than your subscription 
AND the author has found a way to store 
strings so that BASIC doesn't waste time 
shuffling them around. Next month he reveals 
all 



** DUPLEX LII/4K m/1 ** 

This is a package of double precision math- 
ematical functions including, SIN, COS, 
TAN, ATN, EXP, LOG and SQR. All of these 
functions are called quite easily from 
BASIC, e.g. X = USR SIN(Y) 
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***** CASSETTE/DISK EDITION INDEX ***** 

The cassette edition of MICRO-80 contains all the software listed each month, on cassette 
All cassette subscribers need do is CLOAD and RUN the programs. Level II programs are recorded 
on side 1 of the cassette. Level I programs are recorded on side 2. Level I programs are not 
compatible with the System 80. All programs are recorded twice in succession. Note, System 
80 computers have had different tape-counters fitted at different times. The approximate 
start positions shown are correct for the \/ery early System 80 without the volume control or 
level meter. They are probably incorrect for later machines. The rates for a cassette subscription 
are printed on the inside front cover of each issue of the magazine. 

The disk edition contains all those programs which can be executed from disk, including Level 
I programs. Level I disk programs are saved in the NEWDOS format. Users require the Level 
I/CMD utility supplied with NEWDOS + or NEWDOS 80 version 1.0 to run them. 



SIDE ONE 

POLYNOMIAL REGRESSION 
ii 

CURVILINEAR REGRESSION 
■I 

STEEPLECHASE 



APPROX. START POSITION 



TYPE 


I.D. 


DISK FILESPEC 


CTR-41 


CTR-80 


SYSTEM-80 


L2/4K 
ii 


P 
ii 


POLY/BAS 


15 
50 


10 
34 


10 
36 


L2/4K 
ii 


C 
ii 


CURV/BAS 


85 
119 


57 
80 


60 
84 


L2/16K 


S 


STEEPLE/BAS 


150 
240 


102 
162 


107 
170 



3-D MAZE 

SIDE TWO 
3-D MAZE 

BASIC + LABELS 
ii 

TRIANGLE SOLUTIONS 



L2/16K 



MAZE/BAS 



320 



215 



225 



L2/16K 


M 




15 


10 


10 


DISK/32K 
(OBJECT) 
(EDTASM) 


LABELS 
ii 
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A SPECIAL OFFER! 



TO 
SUBSCRIBERS OF 





FOR THE FIRST TIME IN AUSTRALIA! 
GENUINE TANDY TRS-80 MICRO-COMPUTERS, 
HARDWARE AND SOFTWARE AT 

GREAT DISCOUNT PRICES ! ! ! 



HOW TO ORDER - 

1. SELECT ITEMS FROM 1980 TANDY CATALOGUE 

2. DEDUCT 10% FROM ADVERTISED PRICES 

3. POST US YOUR ORDER STATING DESCRIPTION 
CAT. No AND A CHEQUE OR MONEY ORDER. 

WE WILL - 

1. ATTEND TO YOUR ORDER WITHIN 7 DAYS " 

2. SUPPLY GOODS SELECTED FREIGHT FREE ! 

3. SEND ADVERTISING REGULARLY TO KEEP 
YOU INFORMED OF CURRENT SPECIALS ! 

* subject to availability 




.^D 



to CONQUEST ELECTRONICS Ry. Ltd. 
212 Katoomba St. KATOOMBA 2780 



Please supply — 

QTY. CAT NO DESC. 



ADV. PRICE 



SUB TOTAL 
LESS 10% 
FIND CHEQUE FOR TOTAL 



SEND FREIGHT FREE TO 

NAME 

ADDRESS 



P/Code 



CONOUBT ELECTttONM 

212 KATOOMBA ST KATOOMBA N.S.W. 2780 PHONE (047) 82 2491 



PTY. LTD. 
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